Array aus TFileStream auslesen?

[DeddyH]

Müsste Length nicht um 1 größer sein als High?

[mkinzler]

Stimmt, das hab ich auch verschlammpert :oops:

[mo_greene]

Wäre es dann so richtig?

Delphi-Quellcode:

  for i := 0 to High(Zutaten) do
  begin
    FS.Write(Zutaten[i], sizeOF(Zutaten));
  end;

Vielen Dank nochmal :)

[Apollonius]

Nein, das muss SizeOf(Zutaten[i]) oder SizeOf(Basistyp) sein.

[mo_greene]

Also folglich:

Delphi-Quellcode:

for i := 0 to High(Zutaten) do
  begin
    FS.Write(Zutaten[i], sizeOF(Zutaten[i]));
  end;

Danke :)

[mo_greene]

Leider erhalte ich mit folgender Syntax:

Delphi-Quellcode:

  for i := 0 to High(Zutaten) do
  begin
    FS.Write(Zutaten, sizeOF(Zutaten[i]));
  end;

folgedes in der .dat Datei:

¨L¸¨L¸¨L¸¨L¸¨L¸¨L¸¨L¸¨L¸¨L¸¨L

Dies soll den Inhalt in dem Array darstellen. Das kann doch nicht richtig sein, oder wird das so abgespeichert?

[Neutral General]

Zeig mal die Definition von dem Zutaten-Record.

Es muss ein packed record sein und es dürfen keine Strings enthalten sein, höchstens Shortstrings!

[mkinzler]

Was steht den in Zutaten drin/wie ist der Typ deklariert?

[FAlter]

Hi,

du musst schon das entsprechende Element speichern.

Delphi-Quellcode:

for i := Low(Zutaten) to High(Zutaten) do
  begin
    FS.Write(Zutaten[i], sizeOF(Zutaten[i])); //das [i] fehlte!
  end;

Oder gleich so:

Delphi-Quellcode:

FS.Write(Zutaten[Low(Zutaten)], Length(Zutaten) * SizeOf(Zutaten[Low(Zutaten)]));

Dann werden alle Elemente in einem Rutsch gespeichert.

Mfg
FAlter

[Apollonius]

Wenn der Basistyp allerdings eine unhandliche Größe hat, wird zu viel gespeichert - dennoch ist FAlters Lösung zu bevorzugen.