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
