Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   una ayuda con este error please (https://www.clubdelphi.com/foros/showthread.php?t=32716)

dariana20 14-06-2006 14:38:04

una ayuda con este error please
 
LO que hago es esto:
var
a,b,c:integer;
begin
modulo.Atemporal.Append;
modulo.Atemporal.FieldByName('Cantidad').Value:=strtoint(a);
modulo.Atemporal.FieldByName('PrecioMN').Value:=strtoint(b);

c:=a*b;
modulo.Atemporal.FieldByName('ImporteMN').Value:=inttostr(c);
end;

y el error que me da es este:

[Error] Unit2.pas(97): Incompatible types: 'String' and 'Integer'
en las lineas sombradas.
Por favor alguna ayuda. ;)

delphi.com.ar 14-06-2006 14:42:30

No tienes un problema conla consulta, el problema es que las variables a y b son del tipo Integer y las estas utilizando como parámetro de la función StrToInt, esperando esta, un parámetro del tipo String. Tienes que utilizar la función IntToStr para ese caso o no usar ninguna, ya que Value es del tipo Variant y desconozco el tipo de dato del campo Cantidad y PrecioMN pero dudo que sean cadenas.

Saludos!+

ContraVeneno 14-06-2006 16:36:25

¿porque no manejar cada tipo de datos como debe ser?

Al usar valores tipo variant (que es lo que hace el .value), dejas muchas posiblidades a errores.

Lo mejor sería utilizar cada tipo de dato como debe manejarse: .asinteger, .asfloat, .asstring, etc, etc

Sudamericano 14-06-2006 23:14:06

Código Delphi [-]
Código Delphi [-]
procedure xxxxxxxxxxxxxxxx
var
a,b,c:integer;
begin
//inicializo variables
a := 0;
b := 0;
c := 0;
 
// verifico que este Abierto Atemporal
with modulo.Atemporal do
begin
if Active then 
 
Append
else
begin
Open;
Append
end;
FielByName('Cantidad').AsInteger := a;
FieldByName('PrecioMN').AsInteger:= b;
c:=a*b;
FieldByName('ImporteMN').AsInteger:=c;
end
end;


yo lo haria de esta manera


La franja horaria es GMT +2. Ahora son las 17:19:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi