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

[Bounser]

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:

[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

[Bounser]

Hallo Klaus

Vielen vielen Dank für deine Antwort. Jetzt seh ich es endlich. ich hatte wohl gleich zehn Wände/Bretter vorm Kopf. Also vielen Danke ich weiß jetzt woran es liegt.
Ich wünsche noch einen schönen Abend.

Gruß Bounser

[himitsu]

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]

[Luckie]

Und da haben wir wieder die pösen globalen Variablen.

[Bounser]

Guten Abend.
Also ich habe jetzt einfach CloseFile(textf); vor die case-Anweisung geschoben und alles Funktioniert, oder spricht etwas dagegen. Das Problem ist ja, dass ich textf über mehrere Proceduren bearbeite/verwende. Wie könnte man es denn besser machen, als mit globalen Variablen, oder habe ich das jetzt flasch verstanden? Denn wenn ich in der procedure textOpen KEINE globale Variable verwende, dann muss ich ja textf trotzdem zurückliefern, weil das doch sonst, nach Beendigung der Procedure, gelöscht wird, oder etwa nicht? Ich finde es am besten, wenn man dort eine globale Variable benutz, lasse mich aber gerne eines besseren belehren, wenn es nicht gut ist es so zu machen.
Also wie gesagt habe jetzt CloseFile(textf); einfach vor die case-Anweisung verschoben.
Danke für die Antowrten.

Gruß Bounser

[himitsu]

z.B.:

Delphi-Quellcode:

procedure textOpen(var textf: TextFile; Datei: string);
begin
  AssignFile(textf, Datei);
  Rewrite(textf); // an dieser Stelle gibt er E/A-Fehler 32 aus
end;

als Funktion mit Result=TextFile hätte es zwar auch gut ausgesehn, aber wegen des internen TextPuffers im TextFile-Record wäre dieses nicht so gut

[Bounser]

Hallo himitsu.

Also ist das so kein schlechter code, wie ich das jetzt habe. Bin noch Anfänger und daher sehr unerfahren. Danke für die Hilfe, aber war das nur ein Beispiel, wie man es auch machen könnte, oder sollte man es so machen ? ich weiß tut mir leid, dass ich grad so viel poste.

Gruß Bounser

[himitsu]

Problem hierbei war erstmal die globale Variable,
denn wenn du den ablauf (siehe Beitrag #4) verfolgs, wirst du erkennen, daß diese Variable in einfacherRechner1Click und wissenschaftlicherRechner1Click überschrieben wurde und es somit zu Problemen kam.

Delphi-Quellcode:

procedure textOpen(var textf: TextFile; Datei: string);
begin
  AssignFile(textf, Datei);
  Rewrite(textf);
end;

procedure TForm1.einfacherRechner1Click(Sender: TObject);
var textf: TextFile;
begin
  textOpen(textf, 'Einstellungen.txt');
  try
    WriteLn(textf, '0');
  finally
    CloseFile(textf);
  end;
end;

procedure TForm1.wissenschaftlicherRechner1Click(Sender: TObject);
var textf: TextFile;
begin
  textOpen(textf, 'Einstellungen.txt');
  try
    WriteLn(textf, '1');
  finally
    CloseFile(textf);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var textf: TextFile;
  settings: String;
begin
  AssignFile(textf, 'Einstellungen.txt');
  Reset(textf);
  try
    ReadLn(textf, settings);
  finally
    CloseFile(textf);
  end;
  case Strtoint(settings) of
    0:   einfacherRechner1Click(Sender);
    1:   wissenschaftlicherRechner1Click(Sender)
    else close;
  end;
end;

zu StrToInt: schau dir mal StrToIntDef und TryStrToInt an.
zuletzt gab es auch 'nen Thread dazu: StrToIntDef TryStrToInt


PS: so wäre der Fehler auch am Fehlercode erkennbar gewesen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var textf: TextFile;
  settings: String;
begin
  AssignFile(textf,'Einstellungen.txt');
  Reset(textf);
  try
    Readln(textf,settings);
    case Strtoint(settings) of
      0:   einfacherRechner1Click(Sender);
      1:   wissenschaftlicherRechner1Click(Sender)
      else close;
    end;
  finally
    CloseFile(textf);
  end;
end;

PSS: eventuell schaust du dir auch noch die Ini's und die Registry an
z.B.: TIniFile, TRegistry

[Bounser]

ICh wusste nicht, dass es zu Problemen kommt, wenn man die Variable erneut belegt. Danke. Werde ich mir ansehen!
Wünsche noch nen schönen Abend.

Gruß Max