Fórum Como eu faço para o programa identificar a palavra inteira? #178649

oi pessoal do clubedelphi

eu fiz um programinha que contem um memo1, um edit.text e dois Buttons

o que eu quero é o seguinte

dentro do memo1 eu coloquei vários nomes de pessoas
quando eu clicar no button1 o programa vai verificar se o nome que está escrito no edit1.text é igual a agum nome que está no memo1.

se o nome que eu digitei no edit1.textfor igual a algum nome que está no memo1 o button2 será ativado.

como eu fasso isso?

me responderam com esse código.

procedure TForm1.Button1Click(Sender: TObject);
Var k: Integer;
begin
For k:= 0 to Memo1.Lines.Count -1 do
if Pos(Edit1.text, Memo1.Lines[k]) > 0 then
Button2.Enabled := true;
end;


mas se eu digitar no edit1.text o início da palavra ou a primeira letra.
o programa vai habilitar o button2.

como eu fasso para o programa identificar a palavra inteir e não com uma letra ele ativar o button?

[b:9db163eaf5]Título editado pelo moderador - Leia as regras (AZ)[/b:9db163eaf5]