Una duda numérica

[marcoszorrilla]

Si quereis saber que son todos esos números comparados con la infinitez del universo.

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin

  For i:= 50000  to 51914 do
  begin
  Application.ProcessMessages;
  label2.Caption:= IntToStr(i);
  label1.Caption:=  IntToHex(i,4);
  end;

  For i:= 1  to 222 do
  begin
  Application.ProcessMessages;
  label4.Caption:= IntToStr(i);
  label3.Caption:=  IntToHex(i,2);
  end;

  For i:= 25000  to 47818 do
  begin
  Application.ProcessMessages;
  label6.Caption:= IntToStr(i);
  label5.Caption:=  IntToHex(i,4);
  end;

end;

Solo necesitamos un formulario y seis etiquetas.

Las disponemos de la siguiente forma.

LABEL1, LABEL3 LABEL5 alineadas de izquierda a derecha

Debajo:

LABEL2, LABEL4, LABEL6, dispuestas de igual manera.

Seleccionamos todas las etiquetas y le damos un tamaño de fuente 12 y negrita.


Finalmente un Botón que al accionarlo nos resolverá el enigma.

Se formarán 3 número hexadecimales.

A ver quien es el primero en descubir el enigma????



Un Saludo.

"Era un mundo sin uves "