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

// перерахунок величин

procedure TMainForm.LoadSetings;

var Setings : TIniFile;

begin

Setings := TiniFile.Create(ExtractFilePath(Application.ExeName)+SetingsFile);

try

MainForm.Left:= Setings.ReadInteger('Window Setings', 'Left', MainForm.Left);

MainForm.Top := Setings.ReadInteger('Window Setings', 'Top', MainForm.Top);

PageControl.ActivePageIndex:= Setings.ReadInteger('Setings', 'ActivePage', PageControl.ActivePageIndex);

RadioGroup.ItemIndex:= Setings.ReadInteger('Metrix Setings', 'Metix_Index', RadioGroup.ItemIndex);

ComboGMT.ItemIndex:= Setings.ReadInteger('Time Setings', 'GMT_Index', ComboGMT.ItemIndex);

Base1.Value:= Setings.ReadInteger('Base Setings', 'Base1', Base1.Value);

Base2.Value:= Setings.ReadInteger('Base Setings', 'Base2', Base2.Value);

finally

Setings.Free;

end;

end;

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

procedure TMainForm.SaveSetings;

var Setings : TIniFile;

begin

Setings := TiniFile.Create(ExtractFilePath(Application.ExeName)+SetingsFile);

try

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);