Довідник : одиниці вимірювання, система числення, час у різних країнах
procedure SaveSetings;
{ Private declarations }
public
{ Public declarations }
end;
const
SetingsFile='Metrix.ini'; // файл опцій програми
IniFile='Metrix.inf'; // файл параметрів переводу систем числення
GMTFile= 'GMTs.inf' ; // файл з інформацією про часові зони
FormatString = 'Число в %Sковій системі числення';
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
begin
InitMetrix;
ComboGMT.Items.Clear;
ComboGMT.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ GMTFile);
ComboGMT.ItemIndex:=1;
Edit1Change(Sender);
LoadSetings;
end;
// Ініціалізація, завантаження параметрів
procedure TMainForm.InitMetrix;