Saben Amigos intente dar solucion a un problemilla que se me presento al manejar numeros grandes
Tengo esta funcion que al llamarla si sobre paso el limite de 13 numeros me arroja un error que indica
Ej: Base64(12455654541256)
El error que me indica es :Constant espresion violates subrange bounds
Trate De meter de otra manera pero como la cadena es larga al momento de transformar a entero me sale un error de integer valor invalidad
Cita:
Edit2.Text:='12455654541256';
Label2.Caption := Base64(StrToInt(Edit2.Text));
|
Sera que hay alguna manera de manejar numeros largos y transformalos a integer muy largos
Cita:
Function Base64(Numero:Integer):String;
Var
Cociente,Resto:Integer;
Palabra:String;
Begin
Cociente := 1;
Palabra:='';
While (Cociente>0) Do
Begin
Cociente := (Numero Div 64);
Resto := Numero Mod 64;
Palabra := Diccionario [Resto] + Palabra;
Numero := Cociente
End;
Result := Palabra;
End;
|
Es un Algoritmo de Encripacion que trato de manipular pero me estanque en esta funcion Ayudenme Amigos
Les quedarew muy agradecidos Byyyyyy