Hallo DPler,
Ich möchte gerne eine Variable mit Integerwert, also zb. einfach 14 extern in einer Textdatei speichern. Dazu habe ich folgende Prozedur entwickelt:
Delphi-Quellcode:
procedure TForm1.Speichern;
var Speicher: Textfile;
GesH:Integer;
begin
Try
Reset(Speicher,'Speicher.txt');
Readln(Speicher,GesH);
GesZ:=GesH + GesZ;
Except
AssignFile(Speicher,'Speicher.txt');
End;
Rewrite(Speicher);
Writeln(Speicher,GesZ);
CloseFile(SPeicher);
end;
Dabei soll erst geschaut werden ob es die Datei schon gibt. Wenn ja wird in der Datei der Integerwert rausgelesen und in GesH gespeichert. Anschließend wird GesZ mit GesH addiert und in GesZ gespeichert.
Wenn keine datei mit dem Namen Speicher.txt existiert soll in der except schleife eine erstellt werden. Anschließend wird der Zeiger auf ganz oben gestellt, das neue GesZ bzw. das existierende in der 1. zeile gespeichert, und dann geschlossen.
Sind meine Überlegungen richtig?
denn es gibt 1 komischen Fehler:
1. Wenn keine Datei existiert, wird mir trotzdem ein Fehler angezeigt, das die Datei nicht gefunden wurde, aber eigentlich müsste doch durch AssignFile eine erstellt werden?
