Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   PHP (https://www.clubdelphi.com/foros/forumdisplay.php?f=15)
-   -   Traducción de función desde delphi (https://www.clubdelphi.com/foros/showthread.php?t=68884)

Novás 13-07-2010 13:19:42

Traducción de función desde delphi
 
Hola quisiera pediros una ayuda para traducir esta función de delphi a php ya que estoy migrando una aplicación de delphi a php y todavía soy un poco "dummy". Muchas gracias

Código Delphi [-]
function EnDeCrypt(const Value : String) : String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr((ord(Value[CharIndex])));
end;

Ñuño Martínez 14-07-2010 19:46:40

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:

Código:

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. :rolleyes:

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.


La franja horaria es GMT +2. Ahora son las 14:38:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi