Ver Mensaje Individual
  #3  
Antiguo 19-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
No lo encontré, pero te armé esto:
Código Delphi [-]
function IntToBase(Value: Integer; const Pattern: string): string;
var
  B, R: Integer;
begin
  Result := '';
  B := Length(Pattern); { Base }
  repeat
    R := Value mod B; { Resto }
    Result := Pattern[R+1] + Result;
    Value := Value div B;
  until Value = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  NUMERO = 256;
begin
  { Ejemplo de un mismo número con varias bases }
  with Memo1.Lines do
  begin
    Add('Binario: ' + IntToBase(NUMERO, '01'));
    Add('Hoctal: ' + IntToBase(NUMERO, '01234567'));
    Add('Decimal: ' + IntToBase(NUMERO, '0123456789'));
    Add('Hexadecimal: ' + IntToBase(NUMERO, '0123456789ABCDEF'));
    { Esto es lo que vos queres }
    Add('Letras: ' + IntToBase(NUMERO, 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ'));
  end;
end;
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.

Última edición por delphi.com.ar fecha: 19-07-2005 a las 21:25:08.
Responder Con Cita