[[Al González]]

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);  // O "I := I + 1;"
  ShowMessage (IntToStr (I) + ' = ' + IntToStr (Low (Integer)) +
    ' (el incremento de enteros es circular).');

  B := MaxByte;
  Inc (B);  // O "B := B + 1;"
  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.