Die Property Falle...

[Mavarik]

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

[Der schöne Günther]

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 myContainer.getProc()(); sieht schon schräg aus, aber, wie du ja auch sagst, so ist es richtig

[Mavarik]

Zitat von Der schöne Günther:

Hier einmal die Kurzfassung, ohne Interfaces, Properties und Listen:
Die Zeile myContainer.getProc()(); sieht schon schräg aus, aber, wie du ja auch sagst, so ist es richtig

Ok, Dein Beispiel ist noch besser...

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

[Der schöne Günther]

Zitat von Mavarik:

Ehrlich gesagt bin ich erst darauf gekommen, als ich hier das Posting geschrieben habe... Die 1. Version "sollte" das noch als Fehler herausstellen

Das passiert mir auch sooo oft.
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.

[Mavarik]

Zitat von Der schöne Günther:

Wenn man das Problem nochmal isoliert betrachtet und es für andere formulieren will findet man meist den Fehler.

Klar... Manchmal ruf ich meinen Kollegen oder er mich und beim Erklären hat sich das Problem in 8/10 Fällen schon erledigt..
Oder es war gestern einfach zu spät...

[Uwe Raabe]

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.