Generic Proc nutzen

[jaenicke]

Der Unterschied ist, dass eine einfache Prozedur keine Referenz auf das entsprechende Objekt enthält. Daher kannst du beim Aufruf des Callbacks auch nicht wissen, welche Instanz deiner Klasse angesprochen werden soll.

Du wirst deine Logik also so bauen müssen, dass du auch ohne diese Referenz auskommst, sprich dein Callback einzeln funktioniert.

Oft haben heute Komponenten auch die Möglichkeit stattdessen mit einer anonymen Funktion zu arbeiten. Vielleicht kannst du das in die Komponente einbauen oder den Hersteller bitten? (Normalerweise sollte zu externen Komponenten ja auch der Quelltext vorhanden sein.)

[Edelfix]

Ich würde in der Unit "System.Generics.Collections" nach Bespielen suchen.

Zum Beispiel wie das mit "TCollectionNotifyEvent" gelöst wurde.

[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);

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