Consultar No Locate

Delphi

19/08/2003

Tenho um Banco de Dados onde tenho um botão que faz pesquisa com o Locate usando o código abaixo, só que tem um problema: ao clicar no botão ele só localiza a primeira vez. Exemplo vou localizar José; ele só localiza o primeiro, gostaria de saber como modificar o código Abaixo para que o locate procure todos os José’s do banco de dados.

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
L0pt : TLocateoptions;
begin
if Checkbox1.Checked then
Include(L0pt, lopartialkey);
if Checkbox2.Checked then
Include(L0pt, locaseInsensitive);
if not table1.Locate(Combobox1.Text,Edit1.Text,L0pt) then
ShowMessage(´Cliente Não Encontrado.´);


Xadriano

Xadriano

Curtidas 0
POSTAR