Wir sprechen doch noch immer über diese Klasse?
Delphi-Quellcode:
type
TListTypeGeneric<TDataObjectType:TDataTypeGeneric<TDataType>,IDataIO,constructor>=class(TObjectList)
private
function GetElement(Index: integer): TDataObjectType;
procedure SetElement(Index: integer; const Value: TDataObjectType);
protected
function GetVString: string;virtual;
public
function AddNewElement : TDataObjectType;
procedure LoadFromStream(AStream:TFileStream);
procedure SaveToStream(AStream:TFileStream);
property Element[Index:integer] : TDataObjectType read GetElement write SetElement;
property VString : string read GetVString;
end;
Und da liefert
Items
ein
TObject
zurück und
Elements
den generischen Typ.