Mensaje de error extraño

[[Lepe]]

Empezado por Sick boy

He utilizado un bloque try..except porque creo que será más rapido que un if..then..else. Ya me he equivocado un monton de veces en este hilo, puede que me equivoque en esto tambien.

Perdona, equivocar, no te has equivocado, has utilizado una solución, que si bien podría no seguir algunos estándares de programación, funciona a la perfección.

En realidad las excepciones son costosas, ten en cuenta que ha de crearse un nuevo objeto en memoria, tracear la pila de llamadas y volver hacia atrás buscando los try ... except en toda la pila de llamadas y, si no encuentra ninguna más, entonces mostrar el mensaje al usuario.

El dicho viene al caso: "más vale prevenir que curar". Si puedes esquivar la excepción, mejor que mejor. Un "if ...else" sólo se traduce en una comparación y salto en ensamblador. La creación de la excepción, como ya he dicho, es algo más costoso que eso.

En tu favor, podemos decir que tu código funcionará perfectamente e incluso más rápido que ese "if ... else" porque ahorras esas dos instrucciones ensamblador. Sólo en el caso de superar el máximo número del tipo Integer, será un poco más lento tu código. Usando el "if...else" siempre tendrás la misma "velocidad de ejecución" (se supere el máximo o no).

Saludos

[[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.