Generic Proc nutzen

[AuronTLG]

Es muss einfach nur der Name einer Prozedur übergeben werden, welche dem Typ "TProc<TData>" gerecht wird.

Also müsste es völlig ausreichen, deine Methode so zu deklarieren:

Code:

Procedure BeforeLoadData(arg : TData);

Damit müsste dann die gewünschte Methode aufrufbar sein:

Code:

LoadData(BeforeLoadData);

[Kostas]

Zitat von AuronTLG:

Es muss einfach nur der Name einer Prozedur übergeben werden, welche dem Typ "TProc<TData>" gerecht wird.

Also müsste es völlig ausreichen, deine Methode so zu deklarieren:

Code:

Procedure BeforeLoadData(arg : TData);

Damit müsste dann die gewünschte Methode aufrufbar sein:

Code:

LoadData(BeforeLoadData);

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.

Ob das die Ursache ist, keine Ahnung.

Delphi-Quellcode:

type
  TBeforeLoadProc<TData> = reference to procedure(const Arg: TData);

Delphi akzeptiert den Typ so, do wie kann ich die Procedure diesen Typs anlegen?

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

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

[Rollo62]

Wenn als Übergabe TProc《》erwartet wird, dann darf der Parameter Arg1 nicht const sein.