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

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

Label_2.Caption:=Format(FormatString, [UkrRecognizeAmount(Base2.Value)]);

except end;

//Beep;

end;

// викликається на зміну числа або основи для переводу

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

try

F.Free;

except end;

SaveSetings;

end;

// при виході закриває файли і зберігає установки