Ajuda Localizar memo com memo delphi
14/01/2016
0
E ai pessoal beleza?, tenho esse código que faz busca em memo com edit, gostaria de uma ajuda para por exemplo...
Tenho 2 memo...
Memo 1
Texto :
Memo 2
Veja que no Memo 1 e memo 2 tem texto igual q no caso e o Teste caso ele localize, ele mostra uma mensagem, o titulo diz tudo... localizar memo em outro memo... aguardo..
esse e o codigo que eu busco com edit
aguardo respostas!!!
Tenho 2 memo...
Memo 1
Texto :
TESTE AE AB AC AD AE AG TESTANDO
Memo 2
AK AG AT AP TESTE KP LK PK PD PG
Veja que no Memo 1 e memo 2 tem texto igual q no caso e o Teste caso ele localize, ele mostra uma mensagem, o titulo diz tudo... localizar memo em outro memo... aguardo..
esse e o codigo que eu busco com edit
var
lista:TstringList;
posicao:integer;
begin
try
lista:=TstringList.Create;
lista.AddStrings(memo1.Lines);
posicao:=pos(edit1.Text,lista.Text);
if posicao > 0 Then
begin
showmessage('palavra encontrada');
end
else
showmessage('Aviso : Palavra ou Texto Não Localizado')
finally
lista.Free;
end;
lista:TstringList;
posicao:integer;
begin
try
lista:=TstringList.Create;
lista.AddStrings(memo1.Lines);
posicao:=pos(edit1.Text,lista.Text);
if posicao > 0 Then
begin
showmessage('palavra encontrada');
end
else
showmessage('Aviso : Palavra ou Texto Não Localizado')
finally
lista.Free;
end;
aguardo respostas!!!
Gabriel
Curtir tópico
+ 0
Responder
Posts
02/03/2016
Rafael Bosco
Tente:
const
Locate: String = Edit1.text;
var
I: System.Integer;
Found: System.Boolean;
begin
Found := System.False;
for I := 0 to Memo.Lines.Count - 1 do
begin
if ((Pos(Locate, Memo.Lines[I]) > 0)) then
begin
ShowMessage('Palavra encontrada');
Found := System.True; // se achou a palavra, acrescenta na variavél para checagem
System.Break;
end;
end;
//se não achou apresenta mensagem
if Found = System.False then
ShowMessage('Palavra e/ou texto não encontrado');
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
