Amigo Fabio
Obrigado pela sua orientação e ajuda. Funcionou 90%. Somente existe um problema
que, algumas vezes, ao pesquisar uma palavra, na primeira pesquisa funciona
exatamente como programado, mas nas subsequentes, a pesquisa acha a palavra na
frase, mas não marca corretamente. Marca sempre para frente. Tentei achar o
possível erro, mas não deduzi nada. Tambem tem horas em que ele não marca a
palavra procurada. Seria o problema de que tipo de arquivo que veio o conteudo
desse memo? Talves tenha que padronizar o conteudo de cada memo, para um padrão
so?
Obrigado assim mesmo
Clovito
Que o Grande Arquiteto do Universo nos Ampare
Clovis Machado Ferreira
Msn: clovito.ferre...@hotmail.com
----- Original Message -----
From: fabio giro
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 05, 2009 4:09 PM
Subject: Re: [delphi-br] CMF - PESQUISA EM CAMPO MEMO
Coloquei 2 botões, 1 para buscar desde o inicio e outro para buscar a proxima
palavra no texto, ambos os botões executam o mesmo evento de click.
falowz
(...)
private
{ Private declarations }
vinicio : integer;
(...)
procedure TfrmSobreMenus.BtnBuscarClick(Sender: TObject);
var vIndx, Skipchars, vIdx: integer;
begin
If sender = BtnBuscar then // Nome do botão de busca do inicio.
vInicio := 0;
For vIndx := vInicio to memo1.Lines.Count - 1 do
begin
vInicio := vInicio + 1;
If Pos( UpperCase(Edit1.Text) , UpperCase(memo1.Lines[vIndx]) ) > 0
then
begin
Skipchars := 0;
for vIdx := 0 to vIndx - 1 do
Skipchars := Skipchars + Length(Memo1.Lines[vIdx]);
SkipChars := SkipChars + (vIndx*2);
SkipChars := SkipChars + Pos( UpperCase(Edit1.Text) ,
UpperCase(memo1.Lines[vIndx]) ) - 1;
Memo1.SetFocus;
Memo1.SelStart := SkipChars;
Memo1.SelLength := Length(Edit1.Text);
Break;
end;
end;
end;
Espero ter ajudado.
--- Em qui, 5/11/09, Clovito <clovito.ferre...@itelefonica.com.br> escreveu:
De: Clovito <clovito.ferre...@itelefonica.com.br>
Assunto: [delphi-br] CMF - PESQUISA EM CAMPO MEMO
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 5 de Novembro de 2009, 15:16
Ola Pessoal
Saudações
Tenho um campo memo no Access e gostaria de pesquisar palavras dentro de um
determinado registro. Ao mesmo tempo gostaria que ao achar a palavra o mesmo
colocasse em evidencia a palavra achada, tipo Word. Alguem pode me ajudar a
desenvolver essa função. D7 e Access
Obrigado
Clovito
Que o Grande Arquiteto do Universo nos Ampare
Clovis Machado Ferreira
Msn: clovito.ferreira@ hotmail.com
[As partes desta mensagem que não continham texto foram removidas]
__________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
