Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація

Setings.UpdateFile;

finally

Setings.Free;

end;

end;

// збереженняння параметрів до файлу

end.

2) unit Bases;

interface

// переведення числа з однією основою до іншої

procedure RadixStr(NumStr : String;

Radix : LongInt;

NewRadix : LongInt;

var

ResultStr : String);

implementation

uses SysUtils;

procedure RadixStr(NumStr : String; // введене число

Radix : LongInt; // основа введеного числа

NewRadix : LongInt; // основа шуканого числа

var

ResultStr : String);// шукане число

var

RadixChar : String;

v : Int64; //111111111111111111111111111111111111111111111111111111111111111

i : LongInt;

p : Int64;

begin

if ((Abs(Radix) < 2) or (Abs(Radix) > 36)) then Exit;

if ((Abs(NewRadix) < 2) or (Abs(NewRadix) > 36)) then Exit;