Daten Speichern in Free Pascal (Lazarus)?
Hey Leute,
Ich möchte in der IDE Lazarus ein Code programmieren, dass ich Daten abspeichern und auch wieder laden kann.
Ich hab nur keine Ahnung, warum nichts gespeichert wird (die Datei ist und bleibt leer) und natürlich besteht dadurch das Problem, dass nichts geladen werden kann.
Weiß jemand, wo mein Fehler liegt und wie ich diesen beheben kann?
1 Antwort
Du erstellst, öffnest und schließt die Datei nur, ohne aber explizit etwas hineinzuschreiben.
Nach Zeile 45 solltest du noch einen Schreibbefehl ergänzen.
Beispiel:
WriteLn(f, 123);
Deine Lesevorgang ist ebenfalls unvollständig. In diesem Fall solltest du so lange Zeilen auslesen, bis das Dateiende erreicht wurde.
In diesem Beispiel würde die gerade gelesene Zeile in eine Variable data gespeichert werden.
while not eof(f) do
begin
readln(f, data);
{ do something with data ... }
end;
Achso.
Jetzt funktioniert es auch. Ich dachte mit dem Reset und ReWrite Befehl speicher und lese ich es automatisch.