Fórum Função POS #194796
13/11/2003
0
Alguém pode me mandar um exemplo usando a função POS?
Estou querendo fazer uma consulta em um campo memo usando palavras-chave e não estou conseguindo.
Se alguém poder me ajudar com isso fiarei muito grato.
Obrigado pela atenção!
Estou querendo fazer uma consulta em um campo memo usando palavras-chave e não estou conseguindo.
Se alguém poder me ajudar com isso fiarei muito grato.
Obrigado pela atenção!
Douglas
Curtir tópico
+ 0
Responder
Posts
13/11/2003
Marcelo Saviski
tenta assim:
insira um Edit no form e mude o nome dele para EditProcurar.Text
coloca isso em um botão (procurar palavra)
Digite um texto no Memo, o texto a procurar no edit e clique no botão
´diga se funcionou, se sim, é só adaptar para a sua nescessidade
insira um Edit no form e mude o nome dele para EditProcurar.Text
coloca isso em um botão (procurar palavra)
var
Posicao: Integer;
begin
Posicao := Pos(EditProcurar.Text, Memo.Text);
if Posicao > 0 then
begin
Memo.SetFocus;
Memo.SelStart := Posicao - 1;
Memo.SelLength := Length(EditProcurar.Text);
end;
end;Digite um texto no Memo, o texto a procurar no edit e clique no botão
´diga se funcionou, se sim, é só adaptar para a sua nescessidade
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)