1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
procedure TForm7.Button1Click(Sender: TObject);
var
I, iPos: Integer;
begin
for I := Low(KeyWord) to High(KeyWord) do
begin
Ipos:=RichEdit1.FindText(keyword[i],0,Length(RichEdit1.Text),[stWholeWord]);
repeat
RichEdit1.SelStart := iPos;
RichEdit1.SelLength := Length(keyword[i]);
RichEdit1.SelAttributes.Color := clNavy;
RichEdit1.SelAttributes.Style := [fsbold];
Ipos:=RichEdit1.FindText(keyword[i],ipos+length(keyword[i]),Length(RichEdit1.Text),[stWholeWord]);
until ipos=-1;
end;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
HightLight(RichEdit1);
end;
procedure HightLight(RichEdit: TRichEdit);
var
I, iPos, iNext, L: Integer;
begin
L:=Length(RichEdit.Text);
for I := Low(KeyWord) to High(KeyWord) do
begin
iNext :=0;
iPos := RichEdit.FindText(KeyWord[I], iNext, L,[stWholeWord]);
while iPos <> -1 do
begin
iNext := iPos + length(KeyWord[I]);
RichEdit.SelStart := iPos;
RichEdit.SelLength := length(KeyWord[I]);
RichEdit.SelAttributes.Color := clNavy;
RichEdit.SelAttributes.Style := [fsbold];
iPos := RichEdit.FindText(KeyWord[I], iNext, L ,[stWholeWord]);
end;
end;
end; |
Partager