Auf Objekt in der TObjectList zugreifen

[Popov]

Da ich schon länge nichts mehr gecodet habe, hier eine Übung. Ich hoffe es ist richtig:

Delphi-Quellcode:

implementation

{$R *.dfm}

uses
  Contnrs;

type
  TInfo = class //Beispiel-Klasse
    DT: TDateTime;
  end;

var
  Obj: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Obj := TObjectList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Info: TInfo;
  p: Integer;
begin
  Info := TInfo.Create; //Beispiel-Objekt Erstellen
  Info.DT := Now;

  p := Obj.Add(Info); //Beispielobjekt in ObjectList zuweisen

  if p > -1 then
    ShowMessage(Format('Aktuelle Zeit im Item %d als Objekt gespeichert.', [p]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  DT: TDateTime;
  Info: TInfo;
  p: Integer;
begin
  if Obj.Count = 0 then Exit;
  p := Obj.Count - 1;

  Info := TInfo(Obj[p]); //Beispielobjekt aus ObjektList wieder auslesen
  DT := Info.DT;

  ShowMessage('Im Objekt gespeicherte Zeit: ' + TimeToStr(DT));
end;