lectura medidor sistema distrib. de agua

[Gustavo Gowdak]

Hola amigos, estoy realizando un sistema para distribucion de agua y tengo un inconveniente para el consumo agua en sierto caso, el medidor de agua es de de 6 digitos, y el consumo lo saco restando el consumo actual al anterior, hasta ahi no hay problema ahora si mi consumo anterior es 999952 y mi actual es 000014 me da resultado negativo, como soluciono este problema?????

[[seoane]]

Se me ocurre algo como esto

function Restar(i,j: Integer): Integer;
begin
  if (i<j) then Result:= (i + 1000000) - j
    else Result:= i - j;
end;

Donde i es la lectura actual y j la anterior.

[Gustavo Gowdak]

gracias, voy a probar