farvet tekst

Hvis det er tekst i en memo comp. skal du bruge en TRichEdit i stedet for, der er et eks. på brugen i demos\\richedit

du kan bruge pos funktionen:

procedure farv(RE: TRichedit; Tekst, StartOrd, SlutOrd: string; farve: TColor);
var
  p1, p2: integer;
begin
  //Find startposition og læg længden af strengen til
  p1 := Pos(StartOrd, Tekst) +Pred(length(startord));
  //Slutpositionen
  p2 := Pred(Pos(SlutOrd, Tekst));
  RE.SelStart := p1;
  RE.SelLength := p2 - p1;
  RE.SelAttributes.Color := farve;
end;

Casper

hvordan virker denne kode?