Rich Edit Markieren unterschiedlicher Styles

[oakley]

Hallo,

danke für Deine Antwort.
Für jedes Zeichen einzeln dann in etwa so?

Code:

sstart := RICHEDIT.Selstart;
slength := RICHEDIT.SelLength;

for i := 0 to slength-1 do
begin
  RICHEDIT.SelStart := sstart + i;
  RICHEDIT.SelLength := 1;
  RICHEDIT.SelAttributes.Style := RICHEDIT.SelAttributes.Style + [fsUnderline];
end;

Könntest Du mir bitte damit helfen, wie ich am besten die Aufteilung in Bereiche gleicher Formatierung mache?

Viele Grüße

Mirko