Procurar por uma palavra em um arquivo texto

DICA EXTRAIDA SETE SITE


Está dica ensina como formatar comandos em HTML dentro de um RichEdit, para isso inicie um novo projeto e insira no formulário principal um Richedit e um Button, agora abra o editor de códigos e insira o seguinte código:

procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
var
i, iDop: Integer;
s: string;
Col: TColor;
isTag, isDop: Boolean;
begin
iDop := 0;
isDop := False;
isTag := False;
Col := TextCol;
RichEdit.SetFocus;

for i := 0 to Length(RichEdit.Text) do
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;

if (s = ´<´) or (s = ´{´) then isTag := True;

if isTag then
if (s = ´´´) then
if not isDop then
begin
iDop := 1;
isDop := True;
end
else
isDop := False;

if isTag then
if isDop then
begin
if iDop <> 1 then Col := DopCol;
end
else
Col := TagCol
else
Col := TextCol;

RichEdit.SelAttributes.Color := Col;

iDop := 0;

if (s = ´>´) or (s = ´}´) then isTag := False;
end;

RichEdit.SelLength := 0;
end;


Volte ao formulário principal e no evento onclick do Button insira o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);

begin
RichEdit1.Lines.BeginUpdate;
HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;
end;

//Aqui vai uma maneira simples de fazer o que pretendes,
//se achares interessante e quiseres ir mais longe diz.

procedure FindStr();
var StrFicheiro: TStringList;
i : Integer;
begin
StrFicheiro := TStringList.Create;//cria a Lista auxiliar de memoria
StrFicheiro.LoadFromFile(´Ficheiro a pesquisar´);//carrega a StringList com as linhas do ficheiro
for i:=0 to StrFicheiro.Count-1 do
begin
if Pos(´String a procurar´,StrFicheiro.Strings[i]) > 0 then //procura a string desejada
ShowMessage(´Encontrou´)
else
ShowMessage(´não Encontrou´);
end;
end;



Cumprimentos,
JF