Hallo Zusammen!
Titel war:"Anonyme Proceduren mit und ohne Parameter Spass!"
Gegeben ist ein kleines Interface:
Delphi-Quellcode:
TMyProc = TProc;
TMyProc2 = TProc<byte>;
IFOO = Interface
['{7DE4C519-DC13-438A-8FA9-F9A6C10EE9BB}']
Procedure SetOne(AValue:TMyProc);
Function GetOne:TMyProc;
Procedure SetTwo(AValue:TMyProc2);
Function GetTwo:TMyProc2;
Procedure SetProgs(A : TMyProc;B:TMyProc2);
Property One : TMyProc read GetOne write SetOne;
Property Two : TMyProc2 read GetTwo write SetTwo;
End;
Das Ganze wird initialisiert mit:
Delphi-Quellcode:
var
Foo : IFoo;
begin
Foo := TFoo.Create;
Foo.SetProgs(Procedure
begin
Memo1.Lines.Add('Check OK One');
end,
Procedure (B:byte)
begin
Memo1.Lines.Add('Check OK Two');
end);
GFoo := Foo; // Simuliert eine TList
end;
GFoo ist eine globale Interfacevariable die im "eigentlichen" Programm aus einer TList<IFoo> besteht.
Jetzt wird es lustig. Wir machen mal 4 unterschiedliche Aufrufe:
Delphi-Quellcode:
GFoo.Two(43);
GFoo.Two;
GFoo.One;
GFoo.One();
Alle 4 Aufrufe lassen sich compilieren... Was auch logisch ist.
Kleines Ratespiel? Welcher Aufruf funktioniert und welcher nicht?
Logisch GFoo.Two(43) und GFoo.One() <- besonders geil
und warum GFoo.Two und GFoo.One nicht? Besonders da GFoo.One ja keinen Parameter hat!
...
Na weil GFoo.Two und GFoo.One eigentlich GFoo.GetOne und GFoo.GetTwo ist und somit nur ein
Funktionsaufruf ist, bei dem das Ergebniss "verpufft" {$X+}
Wie schnell kann man hier in diese Falle geraten! Ich habe 3h gesucht..
Grüsse Mavarik