Zwei beiträge höher !
Ok Also:
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);
RichEdit1.SelLength:=8;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
temp:=RichEdit1.SelStart;
end;
end;
Das programm startet, doch das Wort Scheisse wird nicht verändert.
Delphi-Quellcode:
if pos('Scheisse',RichEdit1.Text) > 0 then
RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1; //-1 nicht vergessen ;-)
RichEdit1.SelLength:=8;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelAttributes.Style := [fsBold];
So gehts, aber nur das erste Scheisse.