Cita:
Empezado por 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é. |
gracias por la repuesta hermano pero esto no me funciona no compila en rbuilder. ademas necesito adignarle yo el valor en letra a cada numero
osea
1=A o 1=X o 1=H
2=B o 2=N o 2=M
3=C o 3=R o 3=A
algo como con un case
case
1 = x
2 = y
3 = z
espero me entiendan mejor ahora