IO Error 32 -> bedeutet eine sharing violation
IO Error 103 -> bedeutet file not open
Ich vermute das File ist noch read only geöffnet.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var settings: String;
begin
try
AssignFile(textf,'Einstellungen.txt');
Reset(textf); // File readonly geöffnet
Readln(textf,settings);
case Strtoint(settings) of
0: einfacherRechner1Click(Sender); // hier wird versucht in das File etwas zu schreiben
1: wissenschaftlicherRechner1Click(Sender) // hier auch.
else
close;
end;
finally
CloseFile(textf);// an dieser Stelle gibt er E/A-Fehler 103 aus
end;
Du solltest an dem Design etwas ändern.
Grüße
Klaus