Zitat:
s.Text := StringReplace(rawText, #13, #13#10, [rfReplaceAll]);
Das StringReplace kann ganz beruhigt weg, da die TStringList mit allen Zeilenumbrüchen klarkommen wird. (#13#10, #10 und #13)
Zitat:
For i := 1 to s.Count - 1 do
0 bis count-1
Delphi-Quellcode:
var
s: TStringList;
line:
String;
begin
url := '
http://www.xxx.com/daten.txt';
s := TStringList.Create;
try
try
s.Text := IdHTTP1.Get(
url);
except
on e:
Exception do
raise Exception.CreateFmt('
Fehler beim Download von "%s": %s', [
url, e.
Message]);
end;
for i := 0
to s.Count - 1
do
begin
//Application.ProcessMessages;
line := s[i];
try
...
except
on e:
Exception do
raise Exception.CreateFmt('
Fehler beim Verarbeiten von Zeile %d der Datei "%s": %s %s', [i,
url, s[i], sLineBreak + e.
Message]);
end;
end;
finally
s.Free;
end;
end;