Wieder E/A-Fehler...aber ich finde ihn nicht

[turboPASCAL]

Dann zeig doch bitte mal den akt. Code.

[Kasch]

hat sich zum anfangspost nicht geändert

Delphi-Quellcode:

procedure TForm1.btn_ladeClick(Sender: TObject); 
var 

    daten1: array[1..100]  of string; 
    s: string [64]; 
    datei: textfile; 

begin 
  AssignFile(datei,'e:\aaa.txt'); 
   Reset(datei); 

 

for y:=1 to 100 do 
  begin 
   daten1[y]:=inttostr(y); //Fülle das Array einfach sinnlos mit einem String 
   s:= daten1[y];          // Sicher ist sicher, ein einfacher Pufferstring nimmt den Array-String auf 
   writeln(datei,s);       // Hier steigt er nach einem Durchlauf aus
  end; 

closefile(datei); 

end;

[turboPASCAL]

Zitat von Kasch:

hat sich zum anfangspost nicht geändert

Zitat von Kasch:

Code:

procedure TForm1.btn_ladeClick(Sender: TObject); 
var 

    daten1: array[1..100]  of string; 
    s: string [64]; 
    datei: textfile; 

begin 
  AssignFile(datei,'e:\aaa.txt'); 

 // Öffnet die Datei nur zum lesen !!!!!!! (Textdatei)
 [b] Reset(datei); [/b]
 

for y:=1 to 100 do 
  begin 
   daten1[y]:=inttostr(y); //Fülle das Array einfach sinnlos mit einem String 
   s:= daten1[y];          // Sicher ist sicher, ein einfacher Pufferstring nimmt den Array-String auf 
   writeln(datei,s);       // Hier steigt er nach einem Durchlauf aus
  end; 

closefile(datei); 

end;

Warum auch ?

Post #14, #13, #12 ?

[Kasch]

fehler gefunden,

in dem wust hatte sich doch tatsache closefile(datei) noch in die schleife reingeschmuggelt.
viel Lärm um nichts und die Erkenntnis, nächstes mal den Quellcode besser zu ordnen.
Vielen Dank an alle.

[mkinzler]

Du hast dafür aber die Antworten nicht gelesen. denn beim ersten mals klappt es, weil die datei nicht existiert. beim 2. Durchlauf existiert diese und wird ja mit reset geöffnet ( nur zum Lesen) und dann wird versucht zu Schreiben.!