Hallo zusammen,

ich habe eine generics ObjectList so definiert TCustomObjectList<T: class> = class(TObjectList<T>) und als Variable so definiert ZahlungsartList : TCustomObjectList<TZahlungsart>; . Das funktioniert auch wunderbar. Ich kann ja die Generic-ObjectList so wie ich Sie als Variable deklariert habe übergeben : procedure foobar(liste: CustomObjectList<TZahlungsart>); . Wie kann ich auch das <TZahlungsart> als Parameter definieren in dem Procedure-Kopf ?

markieren

Delphi-Quellcode:

type
  TFoo = class
    procedure bar<T>(meineList:Tobjectlist<T>);
  end;

Meinst Du sowas?

Nein, ich möchte in einer externen eigenständigen Funktion auf Werte von den Generics-ObjectListen zugreifen. In dieser Funktion soll dann anhand der übergebenen Liste entschieden werden, was gemacht werden soll.

Der Pseudocode soll zeigen, was ich machen möchte :

zusammenfalten · markieren

Delphi-Quellcode:

interface

type
  TZahlungsart = class
  private
    {...}
  public
    {...}
  end;

  TPostleitzahlen = class
  private
    {...}
  public
    {...}
  end;

  TCustomObjectList<T: class> = class(TObjectList<T>)
  private
    {...}
  public
    {...}
  end;

var
  ZahlungsartList : TCustomObjectList<TZahlungsart>;
  Postleitzahlen : TCustomObjectList<TPostleitzahlen>;

implementation

procedure Test(ObjectList: ??????);
var
  tmpName : string;
begin
  tmpName := ObjectList.Items[Counter].<Feld>;
end:

Der Aufruf aus der Form soll dann zum Beispiel so aussehen :

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  procedure Test(ZahlungsartList);
end;

Statt Zahlungsart kann da auch Postleitzahlen stehen.

Als globale Prozedur wird das nicht gehen, lediglich als Methode eines Records oder einer Klasse:

markieren

Delphi-Quellcode:

  TDummy = record
    class procedure Test<T:class>(ObjectList: TCustomObjectList<T>); static;
  end;


  TDummy.Test<TZahlungsart>(ZahlungsartList);
  TDummy.Test<TPostleitzahlen>(Postleitzahlen);

oder so, wem das besser gefällt (kommt aber, von der Verwendung her, auf's Selbe raus ... ich find Record auch schöner, aber Klasse ist ableitbar/erweiterbar)

markieren

Delphi-Quellcode:

  TDummy = class abstract // ältere Delphis: wenn's nicht geht, dann abstract einfach weglassen
    class procedure Test<T:class>(ObjectList: TCustomObjectList<T>); static;
  end;

Schade das emba nicht auf mich hört und bei generischen Funktionen einfach eine DummyKlasse/Record drumzupacken, wenn die es nicht schaffen es ihrem Compiler beizubringen, dßa es generische Funktion gibt.

Hm, das ist nicht ganz das was ich wollte. Aber ok, dann muss ich ein bisschen umkoordinieren.