Erro Em Busca

[Reloaded`]

quando eu escolho codigo, da um erro falando q por exemplo "1" é um valor invalido, ele ta como string, como eu vou converter pra integer dentro disso:

dmLocad.tbClientes.Filter := 'Codigo ='+''''+ nome.Text +'*'+''''

eu coloquei

... + strtotint(nome.text) ... mais não funcionou. alguém pode me ajudar?

procedure TFormBusClien.ComboTipoChange(Sender: TObject);

begin

if tipo.Text = 'Codigo' then

begin

  telefone.Visible := false;

  nome.Visible := true;

  Label2.Caption := 'Codigo:';

  nome.Clear;

end

  else if tipo.Text = 'Nome' then

  begin

      telefone.Visible := false;

      nome.Visible := true;

      Label2.Caption := 'Nome:';

      nome.Clear;

  end

      else if tipo.Text = 'Telefone' then

      begin

        nome.Visible := false;

        telefone.Visible := true;

        Label2.Caption := 'Telefone:';

        telefone.Clear;

      end

end;

procedure TFormBusClien.BuscaClick(Sender: TObject);

begin

  dmLocad.tbClientes.Filtered := false;

  if tipo.ItemIndex = 0 then

    dmLocad.tbClientes.Filter := 'Codigo ='+''''+ nome.Text +'*'+''''

  else

  begin

    if tipo.ItemIndex = 1 then

      dmLocad.tbClientes.Filter := 'Nome ='+''''+ nome.Text +'*'+''''

    else

    dmLocad.tbClientes.Filter := 'Telefone ='+''''+ nome.Text +'*'+''''

  end;

  DBGrid1.DataSource.DataSet.Active := true;

  dmLocad.tbClientes.Filtered := True;

end;

[pauloevaristo]

Prezado colega se o campo codigo for do tipo inteiro, então você deve colocar a seguinte linha : (dmLocad.tbClientes.Filter := 'Codigo = '+ nome.Text;), pois se voce colocar as aspas duplas ele vai entender que o valor que você esta passando e do tipo string.

Abraço