Delphi-Quellcode:
if fileexists('Eintrage.txt') then
begin
assignfile(datei2,'Eintrage.txt');
reset(datei2);
readln(datei2,hilf);
if hilf <> '' then
begin
reset(datei2);
append(datei2);
writeln(datei2,edit1.text+' '+edit2.text);
end else
begin
rewrite(datei2); <-- Hier Fehlermeldung
writeln(datei2,edit1.text+' '+edit2.text);
end;
closefile(datei2);
end else
begin
assignfile(datei2,'Eintrage.txt');
rewrite(datei2);
writeln(datei2,edit1.text+' '+edit2.text);
closefile(datei2);
end;
end;
Fehlermeldung: ElnOutError I/0 error 32
Folgende Variablen wurden in der Procedur deklariert:
Delphi-Quellcode:
var
datei2: textfile;
hilf: string;
Keine Variablen wurden global deklariert.
Die Datei existiert. Sie ist aber leer. Deshalb habe ich mit der IF-Abfrage geprüft, ob sie leer ist, da der Befehl append bei leeren Dateien nicht funktioniert (meiner Meinung nach). Nun soll mit rewrite und writeln etwas in die Datei geschrieben werden. ICH HABE AUCH DIE SUCHMASCHINE BENUTZT, habe aber nichts gefunden, was mir weiterhelfen konnte.