Array aus TFileStream auslesen?

[mo_greene]

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?

Zu "Zutaten":

Zutaten : array of string; 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: Í^ , was natürlich nicht dem Inhalt entspricht!


Vielen, vielen Dank! Ich hoffe mir kann jemand helfen