Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація
Довідник:одиниці вимірювання, система числення, час у різних країнах
procedure MButtonClick(Sender: TObject);
private
F : TIniFile;
Edits : array of TEdit;
procedure InitMetrix;
procedure LoadSetings;
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;
// Ініціалізація, завантаження параметрів
private
F : TIniFile;
Edits : array of TEdit;
procedure InitMetrix;
procedure LoadSetings;
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;
// Ініціалізація, завантаження параметрів
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021