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