Wie alle zeilenumbrüche löschen?

[Robert_G]

Dann versuche doch mal das:

Delphi-Quellcode:

Var
  i, LfPos                              : Integer;
  s, OutStr                             : String;
Begin

  s := Memo1.Text;
  LfPos := Pos(#10, s);
  If LfPos > 0 Then
    For i := -2 To 2 Do
      If i = 0 Then
        OutStr := OutStr + ', ' + '|' + IntToStr(ord(s[i + LfPos])) + '|'
      Else
        OutStr := OutStr + ', ' + IntToStr(ord(s[i + LfPos]));

  ShowMessage(Copy(outstr,  3, Length(OutStr)));
End;

Der Code sucht das erste Auftauchen von #10 und gibt dir die ASCII Codes der 2 Zeichen davor und dahinter.
Damit kannst du dann deinen Suchstring bestimmen.

Edit: Tippfehler...