Joyas de la VCL
 

Código Delphi [-]
if Value <> '' then
  FUserSetURL := True
else
  FUserSetURL := False;

// Saludos

Código Delphi [-]
FUserSetURL := (Value <> '');

:rolleyes:

Creo que eso es lo que encontró Román, en la unit SOAPHTTPTrans. Hace un tiempo investigué ese tipo de cosas a ver cuánto influían en la performance del código compilado, si mal no recuerdo en este caso la línea de ejecución ejecuta la misma cantidad de instrucciones en ambos casos, solo influiría en el tamaño del código compilado, tal cual como en el código sin compilar.

Saludos!

Claro, supongo que el código ensamblador es igual de eficiente. Pero a nivel de estilo de programación es deplorable; tanto como

Código Delphi [-]
if Valor = true then

:D

// Saludos

Jajaja... Si hasta me recuerda a mí mismo cuando empecé a programar.

Bueno, en Delphi 7 son 3 instrucciones más. Yo pensé que el optimizador se encargaba de estas cosas...

En fin, es sorprendente que un código así haya llegado hasta la JVCL. Yo, la verdad, no la uso, pero me siempre pensé que eran de muy buena calidad. Me pregunto cuántos más de estos (o peores) habrá por ahí .

A ver, a ver; no confundamos ;) No estamos hablando de JVCL sino de la VCL pura y dura de Delphi. Tal como apuntó Federico, la joya pertenece al soporte SOAP de Delphi y el compilador sí optimiza este tipo de código, así que éste no es en si mal código. Es simplemente que como estilo de programación deja mucho que desear.

Es como quien dice, subir arriba o salir afuera. Se entiende perfectamente pero se oye muy feo :D.

// Saludos

Perdón, perdón... Leí mal, es la VCL... Nada que ver con Jedi...:) Pues si es en la VCL, ¡peor!

PD: Amigo roman, por lo que estuve mirando en la ventana de CPU en D7, el optimizador pues... no optimiza en este caso...

Es que no hay nada que optimizar a nivel rendimiento, como dije anteriormente, en ambos casos son el mismo juego de instrucciones que se terminan ejecutando, solo que de esa manera queda escrito dos veces ocupando mas espacio en el ejecutable.

Saludos!