Hallo Uwe,
erweiter mal bitte den Code um eine geschaltelte Region.
Dann funktioniert es nicht mehr (nicht mehr korrekt)
Hier als Beispiel:
Delphi-Quellcode:
type
asyncAttrribute = class(TCustomAttribute);
TSuccessProc = procedure;
procedure DoSomething;
begin
end;
procedure MachWas(proc: TSuccessProc);
begin
end;
{$REGION 'Alles'}
{$REGION 'Eine Funktion'}
function EineFunktion: String;
var
xy: Integer;
[async] procedure Success;
begin
DoSomething;
end;
begin
MachWas( TSuccessProc( @Success));
end;
{$ENDREGION}
procedure DoSomething2;
begin
end;
procedure MachWas2(proc: TSuccessProc);
begin
end;
{$ENDREGION}