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

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;

// Ініціалізація, завантаження параметрів