Pesquisa por palavra-chave
como faço uma busca por palavra-chave dentro de um campo memo? sei que é usando a função POS, mas não sei como utliza-la.
Quem tiver algum exemplo mande para meu e-mail doug_ten@bol.com.br
Obrigado pela atenção.
Quem tiver algum exemplo mande para meu e-mail doug_ten@bol.com.br
Obrigado pela atenção.
Douglas
Curtidas 0
Respostas
Joilson_gouveia
05/09/2003
Estude/Modifique a dica abaixo:
094 - Procura e substituição de string num campo memo
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end
094 - Procura e substituição de string num campo memo
Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Procedure FindReplace (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end
GOSTEI 0