Wie alle zeilenumbrüche löschen?

[jonny]

Wie kann ich einen String nach zeilenumbrüchen durchsuchen die z.B durch betätigen der entertaste in einem Memo gemacht wurden und diese dann auch löschen?

[sakura]

Da sollte Dir StringReplace helfen. Zeilenumbrüche sind #10 und #13.

...:cat:...

[Chewie]

Zeilenumbrüche werden i.d.R. unter Windows durch die ASCII-Codes 13 und 10 (in dieser Reihenfolge!) dargestellt. Du müsstest also diese Zeichen per StringReplace durch einen Leerstring ('') ersetzen.

Allerdings kann es sein, dass einige Programme (speziell ursprünglich von anderen Betriebssystemen kommende) die Zeilenumbrüche als #10, #13 oder gar #10#13 speichern. Das beste wird also sein, alle Vorkommen von diesen Zeichen getrennt durch Leerstrings zu ersetzen.

[jonny]

ok danke.

[jonny]

Also ich mach es jetzt so und es klappt nicht:

Delphi-Quellcode:

  StringReplace(S, #13#10, '', [rfReplaceAll, rfIgnoreCase]);

Warum?

[AlphaBug]

Hallo alle zusammen.

@jonny:

Versuchs mal damit:

Delphi-Quellcode:

StringReplace(S, #13+#10, '', [rfReplaceAll, rfIgnoreCase]);

Ansosten eventuell so:

Delphi-Quellcode:

StringReplace(S, ''+#13+#10, '', [rfReplaceAll, rfIgnoreCase]);

...

funktioniert beides nicht...hmmm.

[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...

[AlphaBug]

meine Lösung sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  function DeleteWordWraps(Value: String): String;
  begin
    Result := Value;
    While AnsiPos(String(#13+#10), Result) > 0 do
      Delete(Result, AnsiPos(String(#13+#10), Result), 2);
  end;
begin
  Memo1.Text := DeleteWordWraps(Memo1.Text);
end;

[jonny]

Und was kann ich dann mit soeinen ergebniss wie ",58, 13, |10|, 118, 111" machen?

[AlphaBug]

Wie meinst du das ?

Möchtest du Substrings ersetzen?

edit...

sorry, fühlte mich angesprochen.

[Robert_G]

Jetzt weißt du, dass du mit...

Delphi-Quellcode:

XYZ := StringReplace(DeinText, #13#10, '', [rfReplaceAll]);

... alle Zeilenumbrüche rauskriegst. :mrgreen:

[jonny]

Danke an alle, läuft schon!