CONVERSÃO DE DADOS

Delphi

05/07/2003

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


Maxsoftware

Maxsoftware

Curtidas 0

Respostas

Miguelossa

Miguelossa

05/07/2003

¿Has probado de acceder a los campos de la tabla de la siguiente manera?

_dm.ibqest[´minimo´].AsInteger := StrToInt( StrValue );


GOSTEI 0
Miguelossa

Miguelossa

05/07/2003

: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:


GOSTEI 0
POSTAR