Aufruifen von Generic Anonymous methods

[TigerLilly]

Mit einer parameterlosen Prozedur geht das einfach:

proc A;
begin
end;

proc B(Proc:TProc);
begin
Proc;
end;

Der Aufruf: B(A);

Wie geht das, wenn A Parameter hat?

proc A(s:string);

proc B(Proc:TProc<string>);

Der Aufruf: B(A('x'));

Wie sieht die Implementierung in B aus?

proc B(Proc:TProc<string>);
begin
Proc(?); < ---
end;

[Der schöne Günther]

Nochmal: Der Aufruf "B(A('x'))" heißt: Ich rufe Methode B auf und stecke den Rückgabewert vom Aufruf A('x') als Parameter rein. A gibt aber überhaupt nichts zurück, es ist eine procedure , keine function . Sie hat keine Rückgabe.

Kann es sein dass du nicht nach TProc<T> suchst sondern nach TFunc<T>?

Ansonsten, falls nicht: Entweder du findest dich damit ab dein B(..) um den String als Parameter erweitern zu wollen, oder du machst es so:

Delphi-Quellcode:

B(
   procedure()
   begin
      A('x');
   end
);

was gleichwertig wäre mit

Delphi-Quellcode:

var
   c: TProc;
begin
   c :=
      procedure()
      begin
         A('X');
      end;
   A(c);
end;

[TigerLilly]

Zitat von Der schöne Günther:

Delphi-Quellcode:

B(
   procedure()
   begin
      A('x');
   end
);

Das ist es! Du hast recht, ich hab den Aufruf falsch angesetzt, ich habe Aufruf unbd Übergabe gleich gesetzt.

Danke!