Procurar em um DBGrid

[FiReBrunO]

Olá sb,

Eu estou fazendo um banco access

Mais estou precisando de ter uma busca

Como faço para Procurar com o FindDialog

Em um DBGrid

Obrigado.

[Jhonas]

Como faço para Procurar com o FindDialog

Em um DBGrid

O FindDialog é usado para se fazer uma busca em um texto

This example requires a TRichEdit, a TButton, and a TFindDialog.
Clicking the button click will display a Find Dialog to the right of the edit control.  Filling in the "Find what" text and pressing the Find Next button will select the first matching string in the Rich Edit control that follows the previous selection.

procedure TForm1.Button1Click(Sender: TObject);

begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then

      StartPos := SelStart + SelLength;
    else

      StartPos := 0;

    { ToEnd is the length from StartPos to the end of the text in the rich edit control }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

Para fazer a busca em um DBGrid voce pode usar dentre outras opções o uso do Locate exemplo:

if botao = 1 then
            begin
               Tabela.Open;
               Tabela.First;

               if Tabela.Locate('EMPRESA',trim(Edit1.text),[loPartialKey]) then
                  begin
                     showmessage('Localizei a Empresa.');
                     achei := 1;
                  end
               else
                  begin
                      showmessage('Empresa não localizada.);
                      achei := 0;
                  end; 
            end;

abraço