Entwickler-Ecke

Datenbanken - Zeilenvorschub aus DBMemo entfernen


colaka - Di 13.12.11 06:15
Titel: Zeilenvorschub aus DBMemo entfernen
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


Andreas Schilling - Di 13.12.11 07:01

Versuche es einmal mit #13#10

Gruß Andreas


colaka - Di 13.12.11 07:10

Hallo Andreas,

vielen Dank, aber das funktioniert leider auch nicht.

Gruß Ebi


bummi - Di 13.12.11 07:15

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


baka0815 - Di 13.12.11 09:54

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.