Welches Zeichen Könnte eine neue Zeile sein?

[himitsu]

Ich hab mal meinen Code (von oben) auf 'nen String umgebastelt.
Versuchs mal damit.

Mir ist aber aufgefallen, das dieses noch mein alter Code ist ... da muß wohl beim letzten Crash doch irgenwas durcheinander gekommen sein da muß ich wohl mal suchen, wo das Neuere ist, hatte kurz davor die Erkennung für die Zeilenumbrüche verbessert, da diese Version ein kleines Problem mit 'ner bestimmten CR-LF-Kombination hat -.-

Delphi-Quellcode:

Var S, S2: String;
  Ca: Char;

Begin
  S := Queue;

  S2 := '';
  Ca := #FF;
  While S > '' do Begin
    If (S[1] <> #10) and (Ca = #13) Then S2 := S2 + #10 + S[1] Else S2 := S2 + S[1];
    Ca := S[1];
    Delete(S, 1, 1);
  End;
  Memo1.Lines.Text := S2;
End;

(ungetestet)