Problem mit for

[himitsu]

Zitat von MichaelLinden:

Sorry für meine stupide Lösung :

Och, so falsch war's nun auch nicht ... wenn man da ein bissl umstellt, dann ...

Delphi-Quellcode:

var
  s: string;
  i, k: integer;
begin
  with RichEdit1 do
  begin
    s := Text;
    i := 1;
    while true do
    begin
      i := PosEx('<', s, i);
      k := PosEx('>', s, i);
      if (i <= 0) or (k < i) then
        break;
      SelStart := i;  // oder    := i - 1;    weiß grad nicht, ob 
      SelLength := k - i + 1;   // dieses 1- oder 0-basierend ist
      SelAttributes.Color := cllime;
      SelAttributes.Style := [fsbold];
      i := k + 1;  // i := k + Length('>');
    end;
  end;
end;