Dateien erstellen, schreiben, Lesen (E/A-Fehler 32 & 103)

[Klaus01]

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