[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