| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
RefPina Novato

Registrado: Quinta-Feira, 31 de Outubro de 2019 Mensagens: 43 Localização: São Paulo
|
Enviada: Qua Fev 05, 2020 5:25 pm Assunto: Erro " " is not valid integer value |
|
|
Boa tarde pessoal,
Estou travado em em uma parte do meu código e não consigo descobrir porque esta acontecendo este erro: "" is not valid integer value.
Fiz o debug, mas não consegui achar uma saida. Se puderem me ajudar sera de grande valia. Segue trecho que esta dando erro.
Obs: No meu SQL tenho um a where cod_ent like :pcod
| Código: |
procedure TfrmCadastroEntidades.DBEdit3Change(Sender: TObject);
begin
CDSContatos.Close;
CDSContatos.ParamByName('pcod').AsInteger := strtoint(DBEdit3.Text);
CDSContatos.Open;
end;
|
|
|
| Voltar ao Topo |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
Enviada: Qua Fev 05, 2020 5:30 pm Assunto: |
|
|
Este erro está ocorrendo porque você está tentando converter para inteiro uma string vazia:
| Código: | | strtoint(DBEdit3.Text) |
Para evitar este erro, vc pode usar StrToIntDef que atribui um valor padrão se houver erro na conversão:
| Código: | | strtointDef(DBEdit3.Text, 0) |
_________________ ''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
 |
|