Generic Proc nutzen

[Kostas]

Zitat von jaenicke:

Zitat von Kostas:

Leider nicht. Delphi meckert "Inkompatible Typen: System.Sysutils.TProc<TData> und Procedure of Object. "die Übergabe weil ich die Proc falsch angelegt habe. Deshalb der Versuch due Procedure zu typisieren.

Wenn du eine procedure of object hast, bist du immer noch in deiner Klasse drin. Das geht nicht. Du musst die Prozedur außerhalb deklarieren!

Interessant, ich habe die Procedure außerhalb der Klasse innerhalb der Unit verschoben.

Delphi-Quellcode:

procedure BeforeLoadProc<TData>(
  const Arg: TData);
begin
  //
end;

Damit ist Delphi auch nicht einverstanden: Typparameter bei globalen Proceduren oder Funktionen nicht zulässig.

[jaenicke]

Wie AuronTLG schon schrieb musst du ohne Generics arbeiten. Die Signatur muss lediglich zu TProc<TData> passen:
Procedure BeforeLoadData(arg : TData);

[Kostas]

Verflixt, geht auch nicht.

Die Procedure in der unit wird jetzt akzeptiert.

Delphi-Quellcode:

procedure BeforeLoadProc(
  const Arg: TData);
begin
  //
end;

Bei der Übergabe LoadData(BeforeLoadProc); bekomme ich jetzt die Meldung: Inkompatible Typen: System.Sysutils.TProc<TData> und Procedure.
Die aufrufende Procedure ist so definiert:
procedure LoadData(const BeforeLoad: TProc<TData> = nil)

[himitsu]

prozedur-zeiger TBeforeLoadProc<TData> = procedure(Arg: TData);
method- oder class-prozedur-zeiger TBeforeLoadProc<TData> = procedure(Arg: TData) of object;

Erstes geht natürlich nur für reine Prozeduren oder statische Class-Proceduren,
aka procedure BeforeLoadData: TBeforeLoadProc<TData>;
oder class procedure {TYoureClass.}BeforeLoadData: TBeforeLoadProc<TData>; static;


Oder eben das Zweite ohne static.
also procedure {TYoureClass.}BeforeLoadData: TBeforeLoadProc<TData>;
oder class procedure {TYoureClass.}BeforeLoadData: TBeforeLoadProc<TData>;

[Uwe Raabe]

TProc<T> erwartet einen Parameter ohne const !

[Kostas]

Perfekt, genau so funktioniert es. ich muss const entfernen

Vielen Dank.