Если тебя интересует совпадение по всем буквам, то могу посоветовать такой код:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
while True do with RichEdit1 do begin
if SelLength <> 0 then StartPos := SelStart + SelLength
else StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(Edit1.Text, StartPos, ToEnd, []);
if FoundAt <> -1 then begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(Edit1.Text);
if SelAttributes.Color=clRed then SelAttributes.Color:=clBlue;
end else begin
SelLength:=0;
exit;
end;
end;
end;
|
Здесь сделана проверка на красный цвет, при совпадении перекрашивается в синий. Если интересует совпадение в регистре символов, нужно выставить параметр [stMatchCase] в функции FindText. Как проверять различие в одном символе пока не знаю, но думаю ;) |
