Fehlerhafte Textdatei

[Amateurprofi]

Zitat von SirThornberry:

Readln und Array of String verträgt sich nicht auf die Weise wie du es verwendest. Ich denke du meinst eher
var TextLesen : array[1..10000] of char;

@SirThornberry
es handelt sich nicht um ein dynamisches array of string sondern um ein statisches array[1..10000} of string und bei mir verträgt es sich ausgezeichnet mit ReadLn.

@winkelmesser
dein array ist definiert als TextLesen:array[1..10000] of string, also solltest du nicht versuchen in TextLesen[0] zu schreiben

Delphi-Quellcode:

begin 
  z:=0; 
  AssignFile(f,form1.FileListBox1.FileName); 
  reset(f); 
  while not eof(f) do 
    begin 
     inc (z); 
     Readln(f,TextLesen[z]); 
      //inc (z);  gehört vor das ReadLn 
    end; 
  closefile(f); 
  AssignFile(f,'C:\test.MPF'); 
  ReWrite(f); 
  // for i := 0 to z do sollte bei 1 beginnen
  for i := 1 to z do 
  begin 
    writeLn(f,TextLesen[i]); 
  end; 
  closefile(f); 
end