Como eu faço para o programa identificar a palavra inteira?

Delphi

30/08/2003

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]


Anjomd

Anjomd

Curtidas 0

Respostas

Demolitor

Demolitor

30/08/2003

useo o codigo da seguinte forma...
procedure TForm1.Button1Click(Sender: TObject); 
Var k: Integer; 
begin 
        For k:= 0 To Memo1.Lines.Count -1 Do 
        If Memo1.Lines.Strings[k] = Edit1.Text Then
        Button2.Enabled := True; 
end;


Falow...


GOSTEI 0
POSTAR