PosEx gibt immer 0 ( Null ) zurück

[jaenicke]

Du suchst nicht im RichEdit sondern in deinem eigenen String 'mit mama und mit papa fahre ich mit', was soll das bringen?

// EDIT:
Ja, i muss natürlich 1 am Anfang sein, stimmt.

// EDIT2:
Wie wäre es so, so klappt es:

Delphi-Quellcode:

var
  i: Integer;
begin
  i := PosEx('mit', RichEdit1.Text, 1);
  while i > 0 do
  begin
    ShowMessage('gefunden');
    RichEdit1.SelStart := i - 1;
    RichEdit1.SelLength := Length('mit');
    RichEdit1.SelAttributes.Color := clRed;
    RichEdit1.SelLength := 0;
    i := PosEx('mit', RichEdit1.Text, i + 1);
  end;