Hallo,

ich habe ein DBMemo-Feld, in dem eigentlich nur Fließtext stehen soll. Aber manchmal schleichen sich beim Eingeben versehentlich Zeilenumbrüche ein, die man nicht erkennt, und die ich automatisch entfernen möchte. Dazu habe ich im OnExit-Ereignis des Memofeldes das folgende eingegeben:

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: procedure TFVerwaltung.DBMemoArtIDExit(Sender: TObject); begin DatMod.TArtID.Edit; StringReplace(DatMod.TArtIDLangtext.AsString, #10#13, ' ', [rfReplaceAll]); DatMod.TArtID.Post; end;

Das läßt sich ohne Fehlermeldung ausführen, aber funktionieren tut es auch nicht.
Besonders ein Zeilenumbruch am Ende des Textes muß unbedingt entfernt werden, weil Google-Shopping solche Artikelbeschreibungen ablehnt.

Habt Ihr eine Idee?

Danke Ebi

Versuche es einmal mit #13#10

Gruß Andreas

Hallo Andreas,

vielen Dank, aber das funktioniert leider auch nicht.

Gruß Ebi

StringReplace ist eine Funktion, Du solltest die Rückgabe auch zuweisen.

Es könnte auch sein, dass als Zeilenumbruch nur #10 oder nur #13 drin steht, ich würde die beiden Zeichen daher unabhängig voneinander ersetzen.