ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Erro "Is not a valid integer value"

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
thaita
Novato
Novato


Registrado: Sábado, 26 de Novembro de 2022
Mensagens: 42

MensagemEnviada: Qua Dez 06, 2023 6:20 pm    Assunto: Erro "Is not a valid integer value" Responder com Citação

Prezados,
Quando tendo salvar um registro, aparece a seguinte mensagem: "Is not a valid integer value". Alguém pode me ajudar? Segue o código abaixo:
procedure TFrmCadastroHQ.btnSalvarClick(Sender: TObject);
var
Mensagem : string;

begin
if dmHQ.cdsHQ.State in [dsInsert] then
begin
// dmHQ.cdsHQId_NomeHQ.AsInteger := StrToInt(edtCodigoNomeHQ.Text); //Campo é autoincremento
dmHQ.cdsHQDataCadastro.AsDatetime := edtDataCadastro.Date;
dmHQ.cdsHQTitulo.AsString := Trim(edtTitulo.text);
dmHQ.cdsHQNumero.AsInteger := StrToInt(edtNumero.Text);
dmHQ.cdsHQVolume.AsInteger := StrToInt(edtVolume.Text);
dmHQ.cdsHQValor.AsCurrency := StrToCurr(edtValor.Text);
dmHQ.cdsHQFotoHQ.AsString := edtFotoHq.Text;
end;
Mensagem := 'Registro alterado com sucesso!';

if DataSource1.State in [dsInsert] then
Mensagem := 'Registro incluído com sucesso!';
TClientDataSet(DataSource1.DataSet).Post;
TClientDataSet(DataSource1.DataSet).ApplyUpdates(0);
ImgFoto.Picture := nil;
edtFotoHq.Clear;

Application.MessageBox(PWideChar(Mensagem), 'Atenção', MB_OK + MB_ICONINFORMATION);
Pesquisar;
pnlPrincipal.ActiveCard := cardPesquisa;

end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB