Array aus TFileStream auslesen?

[mo_greene]

Zitat:

Zitat von 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!

Sorry, was ist ein Record? :oops:

Zu "Zutaten":

Delphi-Quellcode:

Zutaten     : array of string;

Delphi-Quellcode:

SetLength(Zutaten,10); // dies wird leider - aufgrund der Komplexität des Programms - mehrmals aufgerufen, ist aber nicht schlimmm oder?

Delphi-Quellcode:

  for i := 0 to ZusammensetzungLb.Count - 1 do
  begin
    cock.SetZutaten(ZusammensetzungLb.Items[i],i);
  end; //Hier werden Strings aus einer Listbox übergeben. Dieser Inhalt soll letzendlich gespeichert werden.

Delphi-Quellcode:

procedure TCocktail.SetZutaten(n: string; i: Integer);
(* Dient dazu, in das Array zu schreiben *)
begin
  Zutaten[i] := n;
end;

Speicherung des Inhalts:

Delphi-Quellcode:

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

Herauskommen tut folgendes in der .dat Datei:

Delphi-Quellcode:

Í^

, was natürlich nicht dem Inhalt entspricht!


Vielen, vielen Dank! Ich hoffe mir kann jemand helfen :oops: :(

[mkinzler]

Ersetze

Delphi-Quellcode:

Zutaten     : array of string;

mit

Delphi-Quellcode:

Zutaten     : array of ShortString;

oder einer bestimmten Länge.

[Neutral General]

Sag doch das es Strings sind.... grml. :wall:

einen String speicherst du so ab:

Delphi-Quellcode:

l := length(String);
Write(l,SizeOf(Integer));
Write(String[1],l);

Auslesen:

Delphi-Quellcode:

Read(l,SizeOf(Integer));
SetLength(String,l);
Read(String[1],l);

das musst du jetzt eben auf dein Array übertragen

Gruß
Neutral General

[DeddyH]

Was willst Du mit

Zitat:

Delphi-Quellcode:

SetLength(Zutaten,10);

erreichen?

[FAlter]

Hi,

verwende doch eine TStringList statt deines Arrays und deren Methode SaveToFile.

Mfg
FAlter

[mo_greene]

Huch :shock:...ich habe string mit shortstring ersetzt (@mkinzler) und aufeinmal gehts :-D
Danke!!

Zitat:

Zitat von DeddyH

Was willst Du mit

Zitat:

Delphi-Quellcode:

SetLength(Zutaten,10);

erreichen?

Naja muss ich nicht sagen, wie lang das Array ist?

[DeddyH]

Zitat:

Zitat von FAlter

verwende doch eine TStringList statt deines Arrays und deren Methode SaveToFile.

Sehe ich auch als einfacher an.

Zitat:

Zitat von mo_greene

Naja muss ich nicht sagen, wie lang das Array ist?

Schon, aber wenn es immer 10 sind, kannst Du es doch gleich als array[0..9] deklarieren.

[mo_greene]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von FAlter

verwende doch eine TStringList statt deines Arrays und deren Methode SaveToFile.

Sehe ich auch als einfacher an.

Ja okay, aber momentan funktioniert es, so wie es ist und ich habe aus dem String-Array nur ein ShortString-Array gemacht. Ich lasse es lieber erstmal so :-D Trotzdem vielen Dank!

Zitat:

Zitat von DeddyH

Zitat:

Zitat von mo_greene

Naja muss ich nicht sagen, wie lang das Array ist?

Schon, aber wenn es immer 10 sind, kannst Du es doch gleich als array[0..9] deklarieren.

Ja da hast du recht. Kann ich die Länge auch weglassen, wenn der Array dynamisch wachsen soll? Also, je nachdem wieviele Einträge reingeschrieben werden während der Laufzeit?

[DeddyH]

Nee, wenn Du eine Größe angibst, gilt diese auch.

[mo_greene]

Und wenn ich keine Angebe?