Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.176 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

AW: "reference to procedure" vs. "procedure"

  Alt 29. Jan 2018, 18:47
Angenommen ich habe Liste an TProcs. Wenn ich eine TProc in einer Variable speichere kann ich sie später mit dieser Referenz wieder in der Liste wiederfinden und herausnehmen.

Wenn ich "verboten" hätte dass man für TProc auch eine Instanz/Klassenmethode oder klassische Prozedur reinstecken kann wäre den Aufrufer klar geworden dass er sich das selbst in eine TProc-Variable stecken muss um sie später wieder in der Liste wiederzufinden.

Negativ-Beispiel:
Delphi-Quellcode:
procedure x();
begin
   WriteLn('x');
end;

procedure p();
var
   list: TList<TProc>;
begin
   list := TList<TProc>.Create();
   list.Add(x);
   Assert( list.Contains(x) ); // schlägt natürlich fehl
end;

Klar kommt man mit einer "Zwischen-Referenz" drum herum:
Delphi-Quellcode:
procedure p();
var
   list: TList<TProc>;
   proc: TProc;
begin
   list := TList<TProc>.Create();

   proc := x;
   list.Add(proc);

   Assert( list.Contains(proc) );
end;
aber mir wäre lieber gewesen wenn der erste Codeblock erst gar nicht compiliert hätte.
  Mit Zitat antworten Zitat