Traducción de función desde delphi

[Ñuño Martínez]

Atentos a la tontería:

Código PHP:

function EnDeCrypt ($Value)
{
  return "$Value";
} 


De hecho, la función Pascal podría simplificarse de la misma forma:

Código Delphi [-]
FUNCTION EnDeCrypt (CONST Value : STRING) : STRING;
BEGIN
  RESULT := Value;
END;

¿Y por qué?, se preguntará alguno: pues simplemente porque:

CHR ((ORD (Value[CharIndex]))) <=> Value[CharIndex];

Puesto que "ORD (x: CHAR)" devuelve el valor ASCII del caracter mientras que "CHR (ascii: INTEGER)" devuelve el caracter del valor ASCII...

O eso, o es que hoy tengo el día tonto... Que también puede ser.

Nota: Las comillas del código PHP son, en cierto modo, cosméticas pero de esta forma nos aseguramos de que lo que devuelve la función es una cadena de caracteres, independientemente del tipo del valor recibido.