dann sollte textf nicht global sein,
vorallem nicht, wenn du es überlappend von mehreren Dateioperationen verwendest.
vielleicht fällt dir so auf, was passiert
Code:
1+ AssignFile(textf,[color=#0000ff]'Einstellungen.txt'[/color]);
1+ Reset(textf);
1 Readln(textf,settings);
1 [color=#0000ff][b]case[/b][/color] Strtoint(settings) [color=#0000ff][b]of[/b][/color]
1 0:
1 [color=#008000]{einfacherRechner1Click(Sender);}[/color]
12 [color=#008000]{textOpen('Einstellungen.txt');}[/color]
12+ AssignFile(textf,Datei);
12+ Rewrite(textf); [s][color=#008000]// an dieser Stelle gibt er E/A-Fehler 32 aus[/color][/s]
12 WriteLn(textf, [color=#0000ff]'0'[/color]);
12* CloseFile(textf);
1 1:
1 [color=#008000]{wissenschaftlicherRechner1Click(Sender)}[/color]
13 [color=#008000]{textOpen('Einstellungen.txt');}[/color]
13+ AssignFile(textf,Datei);
13+ Rewrite(textf); [color=#008000]// an dieser Stelle gibt er E/A-Fehler 32 aus[/color]
13 WriteLn(textf, [color=#0000ff]'1'[/color]);
13* CloseFile(textf); [color=#008000]// an dieser Stelle gibt er E/A-Fehler 103 aus[/color]
1 [color=#0000ff][b]else[/b][/color]
1 close;
1 [color=#0000ff][b]end[/b][/color];
1* CloseFile(textf); [color=#008000]// an dieser Stelle gibt er E/A-Fehler 103 aus[/color]