Einzelnen Beitrag anzeigen

Benutzerbild von phlux
phlux

Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
 
Delphi 6 Personal
 
#7
  Alt 3. Jan 2003, 21:17
Hi!
Das ganze einfach in einem Stream speichern
Delphi-Quellcode:

//Für {ArrayTyp} setzt du den Array ein den du nutzt

procedure SaveArrayToStream(Array: {ArrayTyp});
var f: TFileStream;//Der Stream in dem wir das ganze speichern

begin
  try
    //Zuerst gucken ob es schon diese Datei gibt, Dateiname kann ja frei gewählt werden
    f := TFileStream.Create('C:\MeinArray.dat', fmOpenReadWrite);
  except
    //Wenn nein, erzeugen wir ihn schnell
    f := TFileStream.Create('C:\MeinArray.dat', fmCreate);
  end;
    //Der Prozedur übergebene "Array" wird in den Stream gespeichert
  f.WriteBuffer(Array, SizeOf(Array));
    //Der FileStream wird freigegeben
  f.Free;
end;
Code ohne gewähr, hab ihn nicht getestet, dürfte aber vom Theoretischen her funzen
Christian "phlux" Arndt
  Mit Zitat antworten Zitat