Binäre Datenspeicherung

**Cubysoft**

Hey,

danke für eure Antworten. Das was ihr vorgeschlagen habt, kenne ich schon bereits und kann es so auch umsetzen, allerdings gibt es hierbei ein Problem: Ich will nicht immer ein 123 Zeichen großes Char-Array schreiben, weil der String manchmal (meitens) deutlich kleiner ist. Einer der Gründe, warum ich die Datei binär speichern möchte, ist der Platzverbrauch. 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.

Trotzdem kann ich das wie gesagt nicht umsetzen.. und Code kann ich euch logischerweise nicht zeigen, da ich noch keinen habe, der mein Problem löst. Ich habe derzeit einfach ein kleines "Test-Projekt" offen, und dort habe ich festgestellt, dass das eben bei variablen Strings nicht so einfach ist..

**Aphton**

Naja so schwer ists auch wider nicht. Für dynamische Daten musst du extra Information speichern: Länge/Größe - damit weißt du dann beim Auslesen, wie viel/lang zu lesen ist.. Und String (AnsiString) ist ein dynamischer Typ- die Länge ist nicht konstant.

Dh aus String wird:
<Länge des Strings> <String>

Aus bel. dyn. Array wird:
<Länge des Arrays><Array>

Wobei das Speichern der Elemente des Arrays wieder rekursiv gleich behandelt werden muss - dh, wenn es z.B. ein String ist (also Array of String), muss für jedes Element die Länge mitgespeicher werden.. würde beispielsweise für dieses Array[2] {"Hallo", "Welt"} so aussehen:
<Länge: "2"> <Länge: "5"> <"Hallo"> <Länge: "4"> <"Welt">

Wie viel Speicher du für die Längenangabe belegen willst, musst du für dich selbst entscheiden (1 [Byte], 2 [Word], 4 [DWord] oder 8 Bytes [LongLong/Double?]). Ein Tipp: Wenn die Länge der Variable < 2^(x*8) ist, dann wähle x als Datentyp.

**p80286**

Zitat von Cubysoft:

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.

markieren

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

**himitsu**

Wenn binär, dann verwende einfach TReader/TWriter.
Hat auch den Vorteil, daß der Aufbau der Datei in der Datei selber gleich mit enthalten ist und vorallem sind da schon viele typsichere Methoden zum Speichern und Lesen enthalten.

PS: Die DFMs im Binärformat (so wie früher in der *.DFM und heute immernoch in der Ressource gespeichert) benutzt das seit sehr, sehr, sehr vielen Jahren, ohne Probleme.

**dummzeuch**

Zitat von himitsu:

PS: Die DFMs im Binärformat (so wie früher in der *.DFM und heute immernoch in der Ressource gespeichert) benutzt das seit sehr, sehr, sehr vielen Jahren, ohne Probleme.

Ohne Probleme? Ich erinnere mich aber noch ganz deutlich an Probleme aus der Zeit, als man die noch nicht als Text abspeichern und ggf. editieren konnte. Ich musste teilweise Formulare komplett neu erstellen, weil Delphi sie nicht mehr lesen wollte/konnte. OK, das war AFAIR Delphi 4 und aelter.

**Mavarik**

Zitat von Cubysoft:

Einer der Gründe, warum ich die Datei binär speichern möchte, ist der Platzverbrauch.

OK... Dann schreibe doch die 123 Byte langen Strings in einen gepackten Stream... und schon sind die Leerzeichen/Nullen egal.

Mavarik

**himitsu**

Die Binärvariante sollte mit #0 klarkommen, da dort die Strings ausschließlich über das Längenbyte/Längenword verwaltet werden,
aber sobald hier noch eine Umwandlung von/zur Textdarstellung vorkomt, dann war's das damit.

Aber "binär"-Daten in Strings sind eh ein bissl fahrlässig.

Da die DFMs im Delphi ausschließlich binär verarbeitet werden und somit die Textversion beim Einlesen erstmal umgewandelt wird, gibt es faktisch mehr Probleme mit Text, als mit binär.