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

[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 ?