Hola amigos.
Que bueno que ya quedó resuelto el asunto de Ricardo, sólo habrá que esperar a ver si no hay más en juego. De cualquier forma, y gracias a esta discusión, hemos descubierto una deficiencia de consideración en la familia de los componentes IBX.
Quisiera agregar algo breve, sobre lo recién comentado.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
Var
I :Integer;
B :Byte;
begin
I := MaxInt;
Inc (I); ShowMessage (IntToStr (I) + ' = ' + IntToStr (Low (Integer)) +
' (el incremento de enteros es circular).');
B := MaxByte;
Inc (B); ShowMessage (IntToStr (B) + ' = ' + IntToStr (Low (Byte)) +
' (el incremento de enteros es circular).');
end;
El código anterior demuestra que no es necesaria ninguna implementación especial cuando se quiere hacer incremento circular de una variable de tipo entero, alcanzando todos sus valores posibles.
Un saludo.
Al.