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

TimeTimer.Enabled := True;

end else

reg.CloseKey;

reg.free; end;

procedure TMainForm.N2Click(Sender: TObject);

begin

ComboGMT.Items.Clear;

ComboGMT.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'GMTs_default.inf');

ComboGMT.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'GMTs.inf');

end;

// виклик контекстного меню – поновлення інформації про часові пояси

procedure TMainForm.Edit1Change(Sender: TObject);

Var

NumStr : String;

Radix : LongInt;

ResultStr : String;

NewRadix : LongInt;

begin

try

NumStr := Edit1.Text;

Radix := Base1.Value;

NewRadix:= Base2.Value;

RadixStr(NumStr,Radix,NewRadix,ResultStr);

Edit2.Text := Copy( ResultStr,0,length(ResultStr));

Label_1.Caption:=Format(FormatString, [UkrRecognizeAmount(Base1.Value)]);