Zitat:
Delphi-Quellcode:
// splitt long lines
I := 0;
while I < Lines.Count do
begin
if Length(Lines[I]) > 10000 then
begin
Lines.Insert(I + 1, Copy(Lines[I], 10000 + Low(string)));
Lines[I] := LeftStr(Lines[I], 10000);
end;
Inc(i);
end;
for I := 0 to Lines.Count - 1 do
...
Das geht auf keinen Fall.