Registriert seit: 16. Mär 2004
2.287 Beiträge
|
Re: Bei einem Text in RichEdit bestimmte Wörter formatieren
12. Dez 2004, 14:38
nein, so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1;
RichEdit1.SelLength:=8;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
temp:=RichEdit1.SelStart;
end;
end;
»Unlösbare Probleme sind in der Regel schwierig...«
|