Hallo ersteinmal.
Ich hoffe das ich hier im richtigen Bereich bin. Ich hab schon alles versucht, aber irgendwie finde ich den Fehler nicht:
Also ich möchte eine Datei bearbeiten:
Delphi-Quellcode:
var
textf: TextFile;
procedure textOpen(Datei: string);
begin
AssignFile(textf,Datei);
Rewrite(textf); // an dieser Stelle gibt er E/A-Fehler 32 aus
end;
procedure TForm1.einfacherRechner1Click(Sender: TObject);
begin
try
textOpen('Einstellungen.txt');
WriteLn(textf, '0');
finally
CloseFile(textf);
end;
end;
procedure TForm1.wissenschaftlicherRechner1Click(Sender: TObject);
begin
try
textOpen('Einstellungen.txt');
WriteLn(textf, '1');
finally
CloseFile(textf);// an dieser Stelle gibt er E/A-Fehler 103 aus
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var settings: String;
begin
try
AssignFile(textf,'Einstellungen.txt');
Reset(textf);
Readln(textf,settings);
case Strtoint(settings) of
0: einfacherRechner1Click(Sender);
1: wissenschaftlicherRechner1Click(Sender)
else
close;
end;
finally
CloseFile(textf);// an dieser Stelle gibt er E/A-Fehler 103 aus
end;
Woran kann das liegen ? Ich weiß wirklich nicht. E/A-Fehler heißt doch, dass die Datei nicht geöffnet wird, aber wird das nicht mit Rewrite() ?
Ich hoffe ihr könnt mir helfen. Vielen Dank schonmal für die Antworten:
