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

Setings.WriteInteger('Window Setings', 'Left', MainForm.Left);

Setings.WriteInteger('Window Setings', 'Top', MainForm.Top);

Setings.WriteInteger('Setings', 'ActivePage', PageControl.ActivePageIndex);

Setings.WriteInteger('Metrix Setings', 'Metix_Index', RadioGroup.ItemIndex);

Setings.WriteInteger('Time Setings', 'GMT_Index', ComboGMT.ItemIndex);

Setings.WriteInteger('Base Setings', 'Base1', Base1.Value);

Setings.WriteInteger('Base Setings', 'Base2', Base2.Value);

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; // введене число