Einzelnen Beitrag anzeigen

smudo

Registriert seit: 6. Sep 2005
Ort: Cottbus
362 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Einzelne Objekte einer TObjectlist überschreiben/freigeb

  Alt 31. Mai 2006, 10:31
Delphi-Quellcode:
procedure TSaveObjectList.SetActiveObject(const aObject: TObject);
begin
{  if FObjectList[FPosition]<>Nil then
    FObjectList[FPosition].Free;      //Vor dem Überschreiben freigeben? funktioniert nicht}

  FObjectList[FPosition]:=Nil; //Wenn schon gefüllt - krachts hier!!!
  FObjectList[FPosition]:=aObject;
end;
Ganz am Anfang weise ich der Liste Nil zu
FObjectList.Add(Nil); und das lässt sich auch noch getrost überschreiben.
  Mit Zitat antworten Zitat