Stack-Überlauf bei Prozeduraufruf

[pszopp]

Zum Speichern/Laden der Properties müsstes du das Objekt am Besten mit den Methoden
LoadFromStream und SaveToStream ausstatten.
In diesen Methoden musst du dann die Properties leider alle manuell speichern/laden.

Delphi-Quellcode:

procedure TObj.SaveToStream(aStream : TStream);
var lk  : Integer;
    Anz : Integer;
begin
  Anz := Length(Data);
  aStream.Write(Anz, SizeOf(Anz)); 
  for lk := 0 to Anz - 1 do begin
    aStream.Write(Data[lk], SizeOf(Data[lk])); // Data ist z.B. ein Array of Integer
  end; // for lk
end;


procedure TObj.LoadFromStream(aStream : TStream);
var lk  : Integer;
    Anz : Integer;
begin
  aStream.Read(Anz, SizeOf(Anz)); 
  SetLength(Data, Anz);
  
  for lk := 0 to Anzahl - 1 do begin
    aStream.Read(Data[lk], SizeOf(Data[lk])); 
  end; // for lk
end;

(ungetestet)

Gruß,
pszopp