Convertir a entero una división de 2 enteros.

[marcoszorrilla]

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.