Zitat von
BTeam:
ToEnd := Length(Scan.Lines.Text);
Hierbei muss der String, den Text zurückliefert erst einmal zusammengebaut werden und dass kann länger dauern. Wenn du hier in einer Schleife die Längen zusammenzählst, entfällt das String-"Addieren".
Delphi-Quellcode:
ToEnd := 0;
for i := 0 to Scan.Lines.Count - 1 do
Inc(ToLen, Length(Scan.Lines[i]) + Length(sLineBreak));