Fórum Conversão String para Inteiro #405203
18/07/2011
0
Oi galera...
preciso transformar o valor de um edit para integer...
O problema é o seguinte,
Preciso gravar isto no banco e estou usando a seguinte sintaxe:
uDtm.frmDtm.Qry_Armazenamento.FieldByName('id_filial').AsInteger := uSala.frmSala.edtFilial.Text;
edtFilial é de outra tela.
O erro que acontece é esse abaixo:
[DCC Error] uCadArmazenamento.pas(577): E2010 Incompatible types: 'Integer' and 'TCaption'
Como proceder pessoal?
Desde já agradeço a compreensão...
preciso transformar o valor de um edit para integer...
O problema é o seguinte,
Preciso gravar isto no banco e estou usando a seguinte sintaxe:
uDtm.frmDtm.Qry_Armazenamento.FieldByName('id_filial').AsInteger := uSala.frmSala.edtFilial.Text;
edtFilial é de outra tela.
O erro que acontece é esse abaixo:
[DCC Error] uCadArmazenamento.pas(577): E2010 Incompatible types: 'Integer' and 'TCaption'
Como proceder pessoal?
Desde já agradeço a compreensão...
Flavio Silva
Curtir tópico
+ 0
Responder
Posts
18/07/2011
Pjava
Vê se isso funciona:
uDtm.frmDtm.Qry_Armazenamento.FieldByName('id_filial').AsInteger := StrToInt(uSala.frmSala.edtFilial.Text);
Desde que edtFilial seja caracter numérico. Consiste o Edit para receber somente números. No OnKeyPress faça: if not(key in['0'..'9',#8,#!#])then key := #0; O #* é para receber Backspace e o #13 é para receber Enter.
Desde que edtFilial seja caracter numérico. Consiste o Edit para receber somente números. No OnKeyPress faça: if not(key in['0'..'9',#8,#!#])then key := #0; O #* é para receber Backspace e o #13 é para receber Enter.
Responder
Gostei + 0
18/07/2011
Pjava
Corrigindo:
O #8 é para backspace e #13 é para o enter. Houve um erro de digitação aí e estou corrigindo:
if not(key in['0'..'9',#8,#13])then key := #0;
Responder
Gostei + 0
19/07/2011
Flavio Silva
Obrigado, já sanei minhas duvidas...
Vlw...
Vlw...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)