Einzelnen Beitrag anzeigen

daywalker9

Registriert seit: 1. Jan 2010
Ort: Leer
594 Beiträge
 
Delphi XE3 Professional
 
#2

AW: Von TStringList abgeleitete Klasse inkl. Objecten speichern

  Alt 8. Jul 2010, 22:52
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
Lars
  Mit Zitat antworten Zitat