Write => I/O Error 103

[Z4ppy]

Mein Code:

Delphi-Quellcode:

var F:TextFile;
    T:string;
{...}
  AssignFile(F,'C:\datei.txt');
  Rewrite(F);
  Write(F,T); << hier gibts den I/O Error 103
  CloseFile(F);

Kann mir jemand erklären, warum das passiert?

MfG Z4ppy

[himitsu]

Die 103 steht meistens für FileNotOpen ... also wird wohl die Datei nicht (richtig) geöffnet worden sein?

[Z4ppy]

Ja, das weiss ich, aber wenn ich ReWrite aufrufe, sollte das doch geschehen sein, oder?

MfG Z4ppy

[nahpets]

Hallo,

schau bitte mal zuerst, ob das ReWrite tatsächlich erfolgreich ist.

Delphi-Quellcode:

 
  AssignFile(F, 'C:\datei.txt'); 
{$I-} 
  ReWrite(F); 
{$I+} 
  tmp := ioresult; 
  if tmp = 0 then 
  begin // erfolgreich 
    Showmessage('Erfolgreich! ioresult='+inttostr(tmp)); 
  end
  else
  begin
    Showmessage('nicht Erfolgreich! ioresult='+inttostr(tmp)); 
  end;

[himitsu]

kommt drauf an.

- exisitert diese Datei schon?
- hat dein Programm in diesem Verzeichnis überhaupt die nötigen Rechte, um sowas zu machen?
- ...
- siehe nahpets

[Z4ppy]

Ja, ReWrite ist erfolgreich: "Erfolgreich! ioresult=0"

MfG Z4ppy

[taaktaak]

In einem TextFile kannst du keine Strings, sondern nur String[] speichern
:wink:

[himitsu]

Delphi-Quellcode:

AssignFile(F, 'C:\datei.txt');
{$I-}
  ReWrite(F);
  Write(F, T);
{$I+}
  tmp := ioresult;
  if tmp = 0 then
    Showmessage('Erfolgreich! ioresult=' + IntToStr(tmp))
  else
    Showmessage('nicht Erfolgreich! ioresult=' + IntToStr(tmp));

wenn das jetzt nur "nicht Erfolgreich! ioresult=103" ausgibt, dann probier es erstmal mit einem anderem Verzeichnis.

@taaktaak: wer sagt das? :gruebel:


PS: bei mir läuft dein Code (von da ganz oben) fehlerlos durch.

[Z4ppy]

"nicht Erfolgreich! ioresult=103" :wall: :wall: :wall:

Ich kann mir aber nicht vorstellen, dass mein Programm in C:\ keine Datei schreiben darf...

MfG Z4ppy

[Teekeks]

@taaktaak: ähhh. Und warum kann ich das dann immer machen?