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