I/O Error 183

[Pilrich]

Hi!

Ich hab da ein kleines Problem: Folgende Zeilen haben eigentlich ohne weiteres funktioniert. Das Programm wurde allerdings größer und größer und wahrscheinlich etwas verpfuscht einzelne Routinen untereinander aufgerufen, aber was ist die Ursache für einen I/O Error 183, den ich bei folgender Zeile, beim Abspeichern eines Records erhalte:

Delphi-Quellcode:

  try
    AssignFile(F,'test');
    Reset(F);                --> Hier tritt der Fehler auf
    Read(F,Benutzer);
  finally
    CloseFile(F);
  end;

oder 

  try
    AssignFile(F,'test');
    ReWrite(F);               --> Hier tritt der Fehler auf
    Write(F,Benutzer);
  finally
    CloseFile(F);
  end;

Danke für eure Hilfe...
Pilrich

[edit=Admin]Code-Tags eingefügt. Mfg, Daniel[/edit]

[Chewie]

Ich weiß nicht ganz genau, aber es könnte sein, dass der Fehler 183 folgendes bedeutet:

Zitat:

Zitat von Microsoft SDK

Cannot create a file when that file already exists.

[Daniel B]

Hallo Pilrich,

F ist schon vom Typ TextFile, odeR?

Wenn Du den gesamten Inhalt der Datei Lesen willst, dann benutze lieber, LoadFromFile, umgekehrt auch SaveToFile. Wenn Du Zeilenweise Lesen oder Schreiben willst, dann benutze ReadLn() und WriteLn().
Ausserdem solltest Du den ganzen Dateinamen samt Extension angeben.
z.B. AssignFile(F, 'C:\Windows\Desktop\test.txt');

http://www.delphipraxis.net/viewtopic.php?t=43
http://www.delphipraxis.net/viewtopic.php?t=44

HTH.

Grüsse, Daniel :hi:

[Pilrich]

Nein F ist Typ von File of TBenutzer. Benutzer ist ein Record...

[Daniel B]

Hallo Pilrich,

Ein bisschen mehr Source wäre ganz nützlich.
Du bist sicher das es der Error 183 und nicht 103 ist?

Grüsse, Daniel :hi:

[Pilrich]

hehe... alle Panikmache umsonst! Ich hab den Fehler gefunden: Ich hab ganz zu Beginn den Befehl:
mkdir('Daten');

Ich hab ihn nun entfernt und es funktioniert ohne Probleme... Aber wieso????

mfg
Pilrich

[Daniel B]

Hallo Pilrich,

probier das mal aus:

Code:

uses Dialogs;

Code:

begin
  {$I-}
  { Get directory name from TEdit control }
  MkDir(Edit1.Text);
  if IOResult <> 0 then
    MessageDlg('Cannot create directory', mtWarning, [mbOk], 0)
  else
    MessageDlg('New directory created', mtInformation, [mbOk], 0);
end;

Grüsse, Daniel :hi:

[Chewie]

Zitat:

Zitat von Pilrich

hehe... alle Panikmache umsonst! Ich hab den Fehler gefunden: Ich hab ganz zu Beginn den Befehl:
mkdir('Daten');

Ich hab ihn nun entfernt und es funktioniert ohne Probleme... Aber wieso????

mfg
Pilrich

Der Fehler 183 taucht wohl auf, wenn ein Ordner mit dem Namenn schon existiert.