[afxe]

Código Delphi [-]
fuction codifica(MiNum:Float) : String;
var
  i : Integer;
  s : String;
begin
  s := FloatToStr(MiNum);
  Result := '';
  for i := 1 to Length(S) do begin
    if s[i] = '.' 
      then result := result + s[i]
      else result := result + Char(Ord(StrToInt(S[i]))+64);
  end;
end;

No recuerdo ahora si la función es CHAR o ASC, es que me pillas en un cibercafé.