Formatierungen im RichEdit

[jfheins]

Folgendes Problem:
Ich habe ein RichEdit, und möchte alles zwischen einem Zeilenumbruch und einem Doppelpunkt (inklusive) fett Darstellen.
Wie Ich Text selektiere, fett mache usw. ist klar, aber wie kann ich dise Formatierung einfügen, ohne jedesmal den kompletten Text durchgehen zu müssen ?

:arrow: Den Text in ein zweites, unsichtbares RichEdit einfügen, formatieren und in das eigentliche RichEdit kopieren. Wie kopiert man den Inhalt mit den Formatierungen ?

:arrow: Den Text vor dem einfügen manipulieren, damit er im RichEdit fett erscheint. Geht das ?

:arrow: Den Text einfügen, und dann formatieren. Wie bekomme ich raus, ab wann ich selektieren muss ?

Danke schonmal im Voraus ... :? :?: :gruebel: :wiejetzt:

[City Light]

Delphi-Quellcode:

{
  Text in RichEdit formatieren
}

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  i : LongInt;
  p : DWord;
begin
  p  := 0;
  for i := 0 to RichEdit1.Lines.Count-1 do
  begin

    if (pos('//',RichEdit1.Lines[i]) = 1) or
       (pos('{' ,RichEdit1.Lines[i]) = 1) or
       (pos('}', RichEdit1.Lines[i]) = 1) or
       (pos('(*',RichEdit1.Lines[i]) = 1) or
       (pos('*)',RichEdit1.Lines[i]) = 1) then
    begin
      RichEdit1.SelStart  := p;
      RichEdit1.SelLength := Length(RichEdit1.Lines[i]);
      RichEdit1.SelAttributes.Color := clgray;
      RichEdit1.SelLength := 0;
    end;
    inc(p,Length(RichEdit1.Lines[i])+2);
  end;
end;

Ich weiß nicht(habe nicht getestet) ob dir das jetzt weiter helfen könnte...

[jfheins]

Ich hab das Problem schon umgangen, trotzdem danke für die Antwort :wink:
(Ich wollte eigentlich nicht dauernd das ganze RichEdit durchgehen, weil das einfach zu lange dauert)

[Stevie]

Zitat:

Zitat von jfheins

Ich hab das Problem schon umgangen, trotzdem danke für die Antwort :wink:

Teilst du uns auch mit, wie? :wink: