Fórum CONVERSÃO DE DADOS #167983
05/07/2003
0
Olá pessoal
estou com um poblema de conversão de dados...
Criei uma tabela no Interbase usando o Firebird 1.003
_dm.ibqestminimo.value:= strtoint(inputbox(´Sisinfo´,´Digite a quantidade mínima de estoque:´,´1´));
O campo mímino é do tipo numérico:
Os dados que aparencen na tela do InputBox e String.
Eu conheço de StrToInt e IntToStr.
Como eu faço para converter de String para numerico
e
Inteiro para numérico;
Pois quando eu coloco para gravar da a mensagem ´UNsupported feature´.
Agradeço a sua atenção.
Qualque informação será bem recebida.
Max...
estou com um poblema de conversão de dados...
Criei uma tabela no Interbase usando o Firebird 1.003
_dm.ibqestminimo.value:= strtoint(inputbox(´Sisinfo´,´Digite a quantidade mínima de estoque:´,´1´));
O campo mímino é do tipo numérico:
Os dados que aparencen na tela do InputBox e String.
Eu conheço de StrToInt e IntToStr.
Como eu faço para converter de String para numerico
e
Inteiro para numérico;
Pois quando eu coloco para gravar da a mensagem ´UNsupported feature´.
Agradeço a sua atenção.
Qualque informação será bem recebida.
Max...
Maxsoftware
Curtir tópico
+ 0
Responder
Posts
06/07/2003
Miguelossa
¿Has probado de acceder a los campos de la tabla de la siguiente manera?
_dm.ibqest[´minimo´].AsInteger := StrToInt( StrValue );
_dm.ibqest[´minimo´].AsInteger := StrToInt( StrValue );
Responder
Gostei + 0
07/07/2003
Miguelossa
:shock: Erré no comando (nesse momento nao tinha o delphi aberto). Melhor pego um pedaço de um dos meus programas:
with dmVerMail.tbConfigMail do
begin
if ( FindKey([1]) ) then
Edit
else begin
Insert;
FieldByName(´Codigo´).AsInteger := 1;
end;
FieldByName(´Autentificacion´).AsString := cbAutentificacion.Text;
FieldByName(´Host´).AsString := txtHost.Text;
FieldByName(´Usuario´).AsString := txtUsuario.Text;
FieldByName(´Clave´).AsString := txtClave.Text;
FieldByName(´Intervalo´).AsInteger := StrToInt( txtIntervalo.Text );
if ( chkAviso.Checked ) then
FieldByName(´Aviso´).AsInteger := 1
else
FieldByName(´Aviso´).AsInteger := 0;
if ( chkLog.Checked ) then
FieldByName(´GenerarLog´).AsInteger := 1
else
FieldByName(´GenerarLog´).AsInteger := 0;
FieldByName(´RutaLog´).AsString := DirectoryListBox1.Directory;
Post;
end;
Assim funciona, nao é?
:wink:
with dmVerMail.tbConfigMail do
begin
if ( FindKey([1]) ) then
Edit
else begin
Insert;
FieldByName(´Codigo´).AsInteger := 1;
end;
FieldByName(´Autentificacion´).AsString := cbAutentificacion.Text;
FieldByName(´Host´).AsString := txtHost.Text;
FieldByName(´Usuario´).AsString := txtUsuario.Text;
FieldByName(´Clave´).AsString := txtClave.Text;
FieldByName(´Intervalo´).AsInteger := StrToInt( txtIntervalo.Text );
if ( chkAviso.Checked ) then
FieldByName(´Aviso´).AsInteger := 1
else
FieldByName(´Aviso´).AsInteger := 0;
if ( chkLog.Checked ) then
FieldByName(´GenerarLog´).AsInteger := 1
else
FieldByName(´GenerarLog´).AsInteger := 0;
FieldByName(´RutaLog´).AsString := DirectoryListBox1.Directory;
Post;
end;
Assim funciona, nao é?
:wink:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)