Return durch Break ersetzen

[kluckweb]

Hallo,

irgendwie kriege ich keine vernünftigen Befehl für Replace hin und ich hoffe ihr könnt mir helfen.

Ich würde gerne alle "Returns" also "chr(13)" in einem Memo durch den HTML Code "
" ersetzen.
Wäre toll, wenn jemand posten könnte, wie man das realisieren kann.

Danke im Voraus.

[Luckie]

Such mal nach StringReplaceMultiple.

[SirThornberry]

wie hast du es denn bisher probiert?
generell willst du ja
#13
durch
'
'
ersetzen.
Alsob rauchst du nur diese beiden Parameter an den richtigen Stellen einsetzen. Wenn du alle Vorkommen ersetzen willst musst du als letzten Parameter
[rfReplaceAll]
angeben.

[kluckweb]

Hi,

habe es mit folgendem Code probiert:

Delphi-Quellcode:

MySQLDataset1.FieldByName('text').asString := ReplaceStr(chr(13),'
', [rfReplaceAll]);

Leider kriege ich dann die Fehlermeldung, dass ReplaceStr ein undefinierter Bezeichner ist.

Wo ist denn der Fehler in dem Code?

[Luckie]

Zitat:

Zitat von kluckweb

Hi,

habe es mit folgendem Code probiert:

Delphi-Quellcode:

MySQLDataset1.FieldByName('text').asString := ReplaceStr(chr(13),'
', [rfReplaceAll]);

Leider kriege ich dann die Fehlermeldung, dass ReplaceStr ein undefinierter Bezeichner ist.

Wo ist denn der Fehler in dem Code?

Es gibt kein ReplaceStr in Delphi. Die Funktion heißt StringReplace.

[kluckweb]

OK,

das hilft mir schon weiter.
Habe den Code umgestellt und er sieht nun so aus.

Delphi-Quellcode:

s := MySQLDataset1.FieldByName('text').asString;
StringReplace(s,chr(13),'
', [rfReplaceAll]);

Fehler kommen nun zwar keine mehr, aber es werden die Werte im Memofeld auch nicht ersetzt.
Ist an dem String denn immer noch was falsch?

[SirThornberry]

StringReplace ist eine Funktion welche den neuen String zurück gibt. Du musst also das Ergebnis der Funktion auch einer Variablen bzw. dem Memotext zuweisen.

[kluckweb]

Sorry,

ich hatte nicht den ganzen Code gepostet.
Hatte das natürlich umgesetzt, aber wie gesagt: Es ändert sich am String nichts und das verwundert mich dann doch, weil der String auch ziemlich exakt der Delphi Hilfe entspricht.

Hier nochmal der gesamte Code:

Delphi-Quellcode:

var s : string;
begin
s := MySQLDataset1.FieldByName('text').asString;
StringReplace(s,chr(13),'
', [rfReplaceAll]);
MySQLDataset1.Edit;
MySQLDataset1.FieldByName('text').asString := s;

end;

[marabu]

Manchmal ist es besser, wenn man es so macht:

Delphi-Quellcode:

with MySQLDataset1 do
begin
  Edit;
  FieldByName('text').AsString := StringReplace(
    FieldByName('text').AsString, sLineBreak, '
', [rfReplaceAll]
  );
  Post;

Grüße vom marabu

Edit: erster Parameter von StringReplace war verstümmelt ...

[kluckweb]

SUPER!!

So geht es. Wobei ich den inhaltlichen Unterschied da nicht wirklich sehe, aber Hauptsache es geht.

Tausend Dank!

[Mavarik]

Zitat:

Zitat von kluckweb

Hier nochmal der gesamte Code:

Delphi-Quellcode:

var s : string;
begin
s := MySQLDataset1.FieldByName('text').asString;
StringReplace(s,chr(13),'
', [rfReplaceAll]);
MySQLDataset1.Edit;
MySQLDataset1.FieldByName('text').asString := s;

end;

Nee FUNCTION! Kein Var Parameter!

Delphi-Quellcode:

S := StringReplace(s,chr(13),'
', [rfReplaceAll]);

Frank :coder: