Delphi заготовки

перевод в любую систему счисления
исходник Pascal/Delphi
простой пример


Inttostr(x); // перевод из Integer в String 
FloatTostr(3.14);   // перевод из Real (вещественного числа) в строку 
FormatFloat('0.0',3.14); // перевод из Real (вещественного числа) в строку  с форматом например два числа после запятой
inttohex(5,2); // перевод в 16-ричную



пример для перевода в другие системы счисления



const
   stroka:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; // список символов используемых в качестве чисел; максимальная строка 37 знаков

Function GetSistema(Value:string;DDefault:integer):integer; { получаем систему счисления Value   система счисления поумолчанию DDefault=10}
var m,x,l:integer;
    s:string; { временная строка для процедуры}
begin
  s:=Value;
  l:=length(s); { длна строки}
  m:=DDefault;{}
  for x:=1 to l ... Читать дальше »