Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Binäre Datenspeicherung

  Alt 7. Jun 2015, 10:11
Die Variante, die Tipps, die ich dazu bis jetzt gehört habe, haben vorgeschlagen, dass man einfach die Größe des Strings vor dem Datum (variabler String) schreibt.
Delphi-Quellcode:
type
 f=tstream;
 s=ansistring;
begin
  f:=tstream.create(myfile);
  f.write(length(s),sizeof(length(s));
  f.write(s[1],sizeof(ansichar)*length(s));
  f.free;
end;
Ich hab z.Zt. kein Delphi verfügbar, darum müßtest Du die Details noch überprüfen, aber das Prinzip sollte klar sein. Das Auslesen funktioniert entsprechend, erst die Länge lesen, dann die eigentlichen Daten.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat