Fórum busca por nome #353077

Prezados colegas

Gostaria muito da ajuda de vocês. Não estou conseguindo solucionar uma questão:

Uso: Delphi7, DBExpress e Firebird 2.0.

[b:821c03cf7e]Duvida:[/b:821c03cf7e]

1) Como mudar o codigo abaixo que utilizava em paradox com bde [b:821c03cf7e]para utilizar em DBExpress com Firebird 2.0[/b:821c03cf7e]?

Codigo antigo:

procedure TFQnomeadv.Edit1Change(Sender: TObject);
begin
with FQnomeadv do
begin
if FDM.TBADV.IndexName <> ´SADV_NOME´ then
begin
FDM.TBADV.Close;
FDM.TBADV.IndexName := ´SADV_NOME´;
FDM.TBADV.Open;
end;
FDM.TBADV.SetRange([Edit1.Text],[chr(127)]);
FDM.TBADV.ApplyRange;
end;
end;

Desde já grato pela atenção dos colegas.