Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
Marcelosoft Mestre
Registrado: Domingo, 21 de Janeiro de 2007 Mensagens: 862
|
Enviada: Sáb Dez 30, 2017 5:42 pm Assunto: Formatar campo Edit com virgula e gravar como String |
|
|
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 |
|
|
leo_cj Colaborador
Registrado: Sábado, 26 de Março de 2011 Mensagens: 1335
|
Enviada: Ter Jan 02, 2018 1:31 pm Assunto: |
|
|
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 |
|
|
Marcelosoft Mestre
Registrado: Domingo, 21 de Janeiro de 2007 Mensagens: 862
|
Enviada: Dom Jan 21, 2018 1:08 am Assunto: |
|
|
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 |
|
|
|