Aufruifen von Generic Anonymous methods

[TigerLilly]

Ich habe

Code:

 TBaseForm = class(TForm)
    procedure ShowHourGlass(Proc: TProc);
  ...
 end;

TbaseForm.ShowHourGlass(Proc: TProc);
begin
  Proc;
end;

Das funktioniert gut. Daselbe wollte ich für Methoden mit einem Parameter machen:

Code:

 TBaseForm = class(TForm)
    procedure ShowHourGlass(Proc: TProc<string>);
  ...
 end;

TbaseForm.ShowHourGlass(Proc: TProc<string>);
begin
  Proc(?);
end;

Aber wie rufe ich die Prozedur dann auf? Was übersehe ich?
Danke für jede Erleuchtung!

[Der schöne Günther]

Delphi-Quellcode:

  TProc<T> = reference to procedure (Arg1: T);
  TProc<T1,T2> = reference to procedure (Arg1: T1; Arg2: T2);
  TProc<T1,T2,T3> = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3);
  TProc<T1,T2,T3,T4> = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4);

Folglich: Proc('Hallo Welt');

[TigerLilly]

Das hilft mir nicht. Ich möchte ja den Parameter weiterreichen.

Ich habe woanders eine Prozedur TuWas(s:string); und diese übergebe ich an ShowHourGlass(TuWas('Hallo'));

Ich hätte ja auf Proc(Arg1); getippt, aber das war falsch.

[peterbelow]

Zitat von TigerLilly:

Ich habe

Code:

 TBaseForm = class(TForm)
    procedure ShowHourGlass(Proc: TProc);
  ...
 end;

TbaseForm.ShowHourGlass(Proc: TProc);
begin
  Proc;
end;

Das funktioniert gut. Daselbe wollte ich für Methoden mit einem Parameter machen:

Code:

 TBaseForm = class(TForm)
    procedure ShowHourGlass(Proc: TProc<string>);
  ...
 end;

TbaseForm.ShowHourGlass(Proc: TProc<string>);
begin
  Proc(?);
end;

Aber wie rufe ich die Prozedur dann auf? Was übersehe ich?
Danke für jede Erleuchtung!

Du brauchst halt eine String-Variable oder Konstante, die innerhalb von Showhourglass sichtbar ist und die übergibst Du an Proc.

[Der schöne Günther]

Ich verstehe nicht ganz. Du willst ShowHourGlass(..) deine TProc<String> geben und was der String sein soll? Dann brauchst du zwei Parameter.

procedure ShowHourGlass(proc: TProc<String>; procParameter: String);
begin
proc(procParameter);
end;

[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!