Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
{....} privateprocedure
SearchAndHighlightText(aText: string
);
{....} procedureTForm1.SearchAndHighlightText(aText: string
); var
i: Integer; begin
for
i := 0 to
WebBrowser1.OleObject.Document.All.Length - 1 do
begin
if
Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
begin
WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00'; WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True
); end
; end
; end
; procedure
TForm1.Button1Click(Sender: TObject); begin
SearchAndHighlightText('some text...'); end
;