![]() |
Die Property Falle...
Hallo Zusammen!
Titel war:"Anonyme Proceduren mit und ohne Parameter Spass!" Gegeben ist ein kleines Interface:
Delphi-Quellcode:
Das Ganze wird initialisiert mit:
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;
Delphi-Quellcode:
GFoo ist eine globale Interfacevariable die im "eigentlichen" Programm aus einer TList<IFoo> besteht.
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; Jetzt wird es lustig. Wir machen mal 4 unterschiedliche Aufrufe:
Delphi-Quellcode:
Alle 4 Aufrufe lassen sich compilieren... Was auch logisch ist.
GFoo.Two(43);
GFoo.Two; GFoo.One; GFoo.One(); 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 |
AW: Anonyme Proceduren mit und ohne Parameter Spass!
Ich mache zwar immer viele dumme Fehler, aber darüber bin ich lustigerweise noch nie gestolpert. Wahrscheinlich weil ich, Java-geschädigt, nie Properties verwende. Mit Gettern (siehe Code unten) fällt einem das irgendwie leichter auf.
Hier einmal die Kurzfassung, ohne Interfaces, Properties und Listen:
Delphi-Quellcode:
program Project10;
{$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; type TProcContainer = class strict protected var proc: TProc; public constructor Create(const proc: TProc); function getProc(): TProc; end; constructor TProcContainer.Create(const proc: TProc); begin inherited Create(); self.proc := proc; end; function TProcContainer.getProc(): TProc; begin Result := proc; end; var myContainer: TProcContainer; begin myContainer := TProcContainer.Create( procedure begin WriteLn('Hallo Welt'); end ); myContainer.getProc(); // Tut nichts myContainer.getProc()(); end. Die Zeile
Delphi-Quellcode:
sieht schon schräg aus, aber, wie du ja auch sagst, so ist es richtig :-)
myContainer.getProc()();
|
AW: Anonyme Proceduren mit und ohne Parameter Spass!
Zitat:
Ich hatte halt ein Testprogramm programmiert, welches die Bedingungen meines KNX-Interfaces so gut wie möglich nachstellen sollte. Daher der Ansatz über das Interface. Ehrlich gesagt bin ich erst darauf gekommen, als ich hier das Posting geschrieben habe... Die 1. Version "sollte" das noch als Fehler herausstellen. Mavarik |
AW: Anonyme Proceduren mit und ohne Parameter Spass!
Zitat:
Fange hier an zu tippen und merke dann ... Wenn man das Problem nochmal isoliert betrachtet und es für andere formulieren will findet man meist den Fehler. 8-) |
AW: Anonyme Proceduren mit und ohne Parameter Spass!
Zitat:
Oder es war gestern einfach zu spät... |
AW: Die Property Falle...
Interessanterweise wirft der Compiler in den Fällen 2 und 3 einen Fehler aus, wenn du in den Compiler-Optionen die Erweiterte Syntax abschaltest. Alternativ kann man natürlich auch die entsprechenden Code-Bereiche in ein {$X-}..{$X+} klammern. Als Lösung ist das allerdings überhaupt nicht geeignet, da dann wohl der restliche Code kaum noch funktionieren dürfte.
|
AW: Die Property Falle...
Zitat:
Ist einfach zu praktisch... Mavarik |
AW: Die Property Falle...
Zitat:
Aber eine entsprechende Warnung á la "Rückgabewert wird nicht verwendet." wäre doch hilfreich, oder? |
AW: Die Property Falle...
Zitat:
Ne die Fehlermeldung wäre nur Nervig und man(n) würde wieder 100ter Dummy Variablen einführen um die Fehlermeldung weg zu bekommen. |
AW: Die Property Falle...
Zitat:
Gut, mit {$X-} würden weniger Meldungen als "
Delphi-Quellcode:
funktioniert nicht" kommen, aber wie du schon sagestes, ist es gut und gewollt, daß man Results nicht zwanghaft auswerten muß.
StringReplace(S, 'a', 'b', []);
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz