Die Property Falle...

[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