Von TStringList abgeleitete Klasse inkl. Objecten speichern

[daywalker9]

Du könntest eine Klasse von TStringList ableiten mit einem eigenen SaveToFile. Dort machst du für jedes Attribut, das du hast, mit z.b. einem MemoryStream WriteBuffer.

Delphi-Quellcode:

type
  TMeinDaten = class
  property ABC : integer read fAbc write fAbc;
  end; 

  //deine savetofile funktion

  ms:=TMemoryStream.create;
  ms.WriteBuffer(meinedaten.abc,sizeof(meinedaten.abc)); //usw, falls mehrere attrbute
  ms.savetofile('MeinDateiname.abc');
  ms.free;

Zum auslesen machst du einfach das gleich wie beim Speichern nur eben ReadBuffer