[firebase-br]

Fábio fabiomachado em microshell.com.br
Qui Dez 22 00:22:18 -03 2005


 Estou tentando fazer uma procura no meu banco de dados e não estou
conseguindo eu uso delphi7 firebird, ibtable da aba interbase, o que quero
na realidade é o seguinte. O código abaixao funciona com a porcaria do
paradox mas funciona,

procedure TForm_Principal.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
   if Text <> '' then
      begin
         OnChange := NIL;
         OldStart := SelStart;
         Text :=
UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
         SelStart := OldStart;
         OnChange := Edit1Change;
      end;
tb_servidores.FindNearest([edit1.text]);
end;

Ou seja a cada letra precionada a dbgrid que me mostra os registro vai
mudando, filtrando. E não consigo fazer isso agora com firebird e ibtable.
Alguem poderia ajudar nesse caso?





Mais detalhes sobre a lista de discussão lista