Zitat von
BAMatze:
Vieleicht hat aber jemand doch noch eine Antwort auf die Frage mit der TObjectList.
Was genau interessiert Dich daran? Wie das aussieht?
Delphi-Quellcode:
TSingle = class(TObject)
Datum : string;
Uhrzeit : string;
Name : string;
Rufnummer : string;
end;
TMyObjectList = class(TObjectList)
private
FKeineAhnung: integer;
public
property KeineAhnung: integer read FKeineAhnung write FKeineAhnung;
end;
und dann (z.B. im FormCreate):
MyObjectList:= TMyObjectList.Create;
Nicht vergessen, die Liste beim Schließen wieder freizugeben:
MyObjectList.Free;
Füllen mit:
Delphi-Quellcode:
var Single: TSingle;
begin
for x:= 1 to 10 do
begin
Single:= TSingle.Create;
Single.Datum:= ...
Single.Uhrzeit:= ...
MyObjectList.Add(Single);
end;
end;
Auslesen mit:
Delphi-Quellcode:
var Single: TSingle;
begin
Single:= MyObjectList.Items[0] as TSingle;
end;
Gruß, Carsten