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 :
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 :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
procedure Test(ZahlungsartList);
end;
Statt Zahlungsart kann da auch Postleitzahlen stehen.