como ler um memo
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?
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?
Anjomd
Curtidas 0
Respostas
Wbb
30/08/2003
Faça assim:
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;
Até mais.
wbb
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;
Até mais.
wbb
GOSTEI 0