Richedit manuell manuell formatieren

[Neutral General]

Hi,

Ich würde gerne einen String hinzufügen, der rtf-code enthält, der diesen String formatiert. Also sowas:

Richedit1.Lines.Add('{\rtf1\ul Hi \ulnone Neutral General}'); Diesen Thread habe ich schon gesehen, aber der hilft mir nicht weiter.

Das da oben funktioniert generell schon. Allerdings bekomme ich bevor es klappt eine Exception:

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOutOfResources with message 'RichEdit line insertion error'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Und das klappt dann irgendwie auch nur einmal.

Wenn ich das \rtf1 weglasse, escaped er alles brav

Kennt da jemand ne Möglichkeit?

Gruß
Neutral General

[marabu]

Hallo Michael,

Zitat von Neutral General:

... Diesen Thread habe ich schon gesehen, aber der hilft mir nicht weiter. ...

manchmal musst du gefundenen Code etwas anpassen:

Delphi-Quellcode:

procedure TDemoForm.AppendButtonClick(Sender: TObject);
begin
  with RichEdit do
  begin
    SelStart := MaxInt;
    SelText := '{\rtf1\ul Hi \ulnone Neutral General}';
    Lines.Add('');
  end;
end;

Freundliche Grüße

[Neutral General]

Manchmal muss man dadrauf erstmal kommen Aber danke