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