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

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