ayuda para un trabajo

[dec]

Hola,

En la unidad "StrUtils" (al menos en Delphi 7) se encuentra una función de nombre "ReverseString" y que tiene este aspecto, por si a alguien le interesa:

Código Delphi [-]
function ReverseString(const AText: string): string;
var
  I: Integer;
  P: PChar;
begin
  SetLength(Result, Length(AText));
  P := PChar(Result);
  for I := Length(AText) downto 1 do
  begin
    P^ := AText[i];
    Inc(P);
  end;
end;

Por cierto que existe una función en la misma unidad de nombre "AnsiReverseString", por si vuelve a interesar a alguien.

Respecto de convertir un número a texto... prueba a echar un vistazo al componente ATexto.