Convertir a entero una división de 2 enteros.
 

No he logrado convertir a entero una división de 2 enteros, es decir tengo dos campos 'Integer' y hago una divisón entre ellos y el resultado lo quiero guardar en otro campo también entero.

Lo he arreglado de la siguiente y chapucera manera.

Código Delphi [-]
procedure TDmPedido.IbDtsLinPedidosBULTOSChange(Sender: TField);
begin
DmPedido.IbDtsLinPedidosIMPORTE.Value:= DmPedido.IbDtsLinPedidosBULTOS.Value *
DmPedido.IbDtsLinPedidosFORMATO.Value * DmPedido.IbDtsLinPedidosPCOMREAL.Value;

DmPedido.IbDtsLinPedidosUNISKG.Value:=DmPedido.IbDtsLinPedidosBULTOS.Value *
DmPedido.IbDtsLinPedidosPESO.Value;

  if DmPedido.IbDtsLinPedidosUNISPALET.Value <> 0 then
  DmPedido.IbDtsLinPedidosPALETS.Value:=StrToInt(FormatFloat('0',int(DmPedido.IbDtsLinPedidosBULTOS.Value /
  DmPedido.IbDtsLinPedidosUNISPALET.Value)))
  else
  DmPedido.IbDtsLinPedidosPALETS.Value:=0;
end;

Un Saludo.

¿No tendrías que usar Trunc o Round?

// Saludos

Esto no te sirve ?

Código Delphi [-]
DmPedido.IbDtsLinPedidosBULTOS.Value div DmPedido.IbDtsLinPedidosUNISPALET.Value

Saludos

Son influencias de otro lenguaje, tienes razón, ya está en marcha:

Código Delphi [-]
 if DmPedido.IbDtsLinPedidosUNISPALET.Value <> 0 then
  DmPedido.IbDtsLinPedidosPALETS.Value:=Trunc(DmPedido.IbDtsLinPedidosBULTOS.Value /
  DmPedido.IbDtsLinPedidosUNISPALET.Value)
  else
  DmPedido.IbDtsLinPedidosPALETS.Value:=0;

Un Saludo.

Eliseo, no me funciona tu código porque me da error.

Un Saludo.

Ya veo, será por el .Value, lo bueno es que se solucionó con el trunc().

Saludos

También habría que saber qué error es, que parecemos novatos :D

Han de ser esas influencias :rolleyes:

// Saludos

Remítelo a la guía de estilo, como haces con todo mundo. ;) (es broma, compas) :)

Hola Marcos.

Sólo para agregar que la sugerencia de egostar funciona perfectamente cambiando Value por AsInteger.

Código Delphi [-]
  with DmPedido do
    IbDtsLinPedidosPALETS.AsInteger:= IbDtsLinPedidosBULTOS.AsInteger div IbDtsLinPedidosUNISPALET.AsInteger;

Saludos.

Gracias Ecfisa, me suponía como ya apuntó Eliseo que se debía a utilizar Value, pero como estaba trabajando y ya no quería hacer más pruebas lo dejé como apunté anteriormente.

En cuanto al error, era un error ambiguo ya que se producía en el else después de la instrucción, por lo tanto no di datos porque no los tenía y no podía perder tiempo en buscarlo, el mensaje fue más en deferencia con Eliseo que también se había molestado en buscar una solución como se ha visto a posteriori válida.

Gracias a todos.

No, que me vaya a banear :D