(nicht getestet)
Delphi-Quellcode:
for i := 0 to length(RichEdit1.text)-1 do // Selektion fängt bei 0 an und hört damit bei Länge-1 auf
begin
RichEdit1.SelStart := i;
RichEdit1.SelLength := 1;
if fsBold in RichEdit1.SelAttributes.Style then
begin
// insert code here
end;
end;
Frage für den interessierten Leser:
Wie bin ich ohne installiertes Delphi (Lazarus ist ohne RichEdit) darauf gekommen?