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 

Formatar campo Edit com virgula e gravar como String

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> NFe
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Marcelosoft
Mestre
Mestre


Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862

MensagemEnviada: Sáb Dez 30, 2017 5:42 pm    Assunto: Formatar campo Edit com virgula e gravar como String Responder com Citação

Antes de mais nada, um Feliz Ano Novo a TODOS desta comunidade !!!

Preciso gravar os dados de um campo com Kilo e Gramas mas na minha tabela de produtos o campo é "A" (Alfa numerico) no Paradox e uso o Delphi 7. Uso o campo Edit.Text !

Por exemplo 10,50 (Kg) como gravo este valor no campo da tabela que se encontra como String ?

Obrigado,

Marcelo.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
leo_cj
Colaborador
Colaborador


Registrado: Sábado, 26 de Março de 2011
Mensagens: 1335

MensagemEnviada: Ter Jan 02, 2018 1:31 pm    Assunto: Responder com Citação

O campo String aceita normalmente tanto 10,50 como 10,50 (KG), basta você gravar normalmente o campo.

ex:
Código:
Qry.SQL.Add('INSERT INTO TABELA (Peso) VALUES(:Peso)');
Qry.ParamByName('Peso').AsString := Edit1.Text;
Qry.ExecSQL;


Nesse exemplo acima, estou inserindo apenas o campo PESO com o valor do edit1

Está ocorrendo algum erro da maneira como está fazendo? se sim, informe o erro aqui para que o pessoal possa analisar a causa.

Att,
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Marcelosoft
Mestre
Mestre


Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862

MensagemEnviada: Dom Jan 21, 2018 1:08 am    Assunto: Responder com Citação

Não está deixando gravar....

Que fica com a tabela aberta e não fecha !

É neste código abaixo que estou tendo problema .....

E dá esta mensagem abaixo !

'2,5' is not a valid integer value for field 'Qtd'

Try
TabCadEstoq.Append;
Except
ShowMessage('Atenção !!!... Código nº 06 - Favor Comunicar a Marques e Ferreira !');
End;

{Nº do Registro}
TabCadEstoq.FieldByName('NrReg').AsInteger := nNrReg;

TabCadEstoq.FieldByName('Qtd_Max').AsString :=UpperCase(CE_QtdMax.Text);


Att,

Marcelo.
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 -> NFe 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