Einzelnen Beitrag anzeigen

smudo

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

Einzelne Objekte einer TObjectlist überschreiben/freigeben

  Alt 31. Mai 2006, 09:00
Hallo,

Ich nutze eine Objectliste zum abspeichern von Records:
Delphi-Quellcode:
RSaveRec=Record
  s:String;
  i:Integer;
  b:Boolean;
end;
PSaveRec=^RSaveRec;

function TForm1.GetObject: PSaveRec;
begin
  New(Result);
  Result.s:=edS.Text;
  Result.i:=seI.Value;
  Result.b:=chkb.Checked;
end;

SaveObjectList.ActiveObject:=TObject(GetObject);
ActiveObject ist eine Property der Klasse TSaveObjectList, welche das übergebene Objekt an der aktuellen Position in einer TObjectlist speichert. Das funktioniert auch gut, solange an der Position in der ObjectListe noch nichts gespeichert war.
Möchte ich aber ein Objekt überschreiben, kommt es zu einer Zugriffsverletzung.

Wie kann ich ein einzelnes Object aus einer Objectliste freigeben bzw. überschreiben, ohne das Object selbst zu kennen?

ich habe mit diesem Thread
Speicherverwaltung Objectlisten
versucht, das Problem zu klären, bin aber nicht weitergekommen.

Schon mal Danke im Voraus für eure Anregungen

René
  Mit Zitat antworten Zitat