Zeichenlänge eines Memo zu klein

[himitsu]

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;