Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: TList<T> erst in abgeleiteter Klasse instantiieren
1. Aug 2018, 08:25
Das geht glaub ich nur, wenn die Klasse selbst generisch ist, also etwa so:
Delphi-Quellcode:
type
TMyType1<T> = class(TObject)
private
FListe: TList<T>;
public
constructor Create; virtual;
destructor Destroy; override;
function Count: Integer;
property Liste: TList<T> read FListe write FListe;
end;
implementation
{ TMyType1<T> }
function TMyType1<T>.Count: Integer;
begin
Result := FListe.Count;
end;
constructor TMyType1<T>.Create;
begin
inherited;
FListe := TList<T>.Create;
end;
destructor TMyType1<T>.Destroy;
begin
FListe.Free;
inherited;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|