Generic Proc nutzen

[Kostas]

Hallo Zusammen,

in einer Fremdkomponente möchte ich die folgende Methode nutzen. Diese benötigt eine Generics Procedure.
Wie wird bitte so eine Procedure angelegt damit ich sie übergeben kann?

Delphi-Quellcode:

procedure LoadData(const BeforeLoad: TProc<TData> = nil);

so in etwa könnte es aussehen.

Delphi-Quellcode:

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

in meiner Classe
  class procedure BeforeLoadData: TBeforeLoadProc<TData>;  <<< so geht es nicht.

[freimatz]

Das Problem ist m.E. das: "in meiner Classe".
Schreib die prozedur mal ausserhalb global.
und dann so:
procedure BeforeLoadData<TData>;

Ich vermute Du wirst die Fremdkomponenten nicht ändern können. Sonst wäre besser:

Delphi-Quellcode:

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

(Alles ungetestet)

[Kostas]

Danke für den Hinweis.

Den Type hatte ich bereits außerhalt der Klasse und habe reference to hinzugefügt.

Hast do eine Idee wie dieser Typ danach in meiner Klasse unter private anlegen kann und danach die Procedure zu definieren?

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

[Kostas]

in meiner Klasse kann ich die Procedure ohne Typ unter private anlegen:

Delphi-Quellcode:

type 
  TMyClass=class
  private
    class procedure BeforeLoadProc<TData>(const Arg: TData);
  public
  end;


implementation

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

//procedure LoadData(const BeforeLoad: TProc<TData> = nil)  <<<die fremde Methode die die Proc als Parameter benötigt.

LoadData(BeforeLoadProc); <<< Delphi gibt aus: Inkompatible Typen: System.Sysutils.TProc<TData> und Procedure of Object.

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

Zitat von AuronTLG (Beitrag 1521643)

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?

[Rollo62]

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

[jaenicke]

Zitat:

Zitat von Kostas (Beitrag 1521645)

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:

Zitat von jaenicke (Beitrag 1521648)

Zitat:

Zitat von Kostas (Beitrag 1521645)

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:

Delphi-Quellcode:

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

Delphi-Quellcode:

LoadData(BeforeLoadProc);

bekomme ich jetzt die Meldung: Inkompatible Typen: System.Sysutils.TProc<TData> und Procedure.
Die aufrufende Procedure ist so definiert:

Delphi-Quellcode:

procedure LoadData(const BeforeLoad: TProc<TData> = nil)

[himitsu]

prozedur-zeiger

Delphi-Quellcode:

TBeforeLoadProc<TData> = procedure(Arg: TData);

method- oder class-prozedur-zeiger

Delphi-Quellcode:

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

Delphi-Quellcode:

const

!

[Kostas]

Perfekt, genau so funktioniert es. ich muss

Delphi-Quellcode:

const

entfernen

Vielen Dank.