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

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 ;

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

procedure TMainForm.RadioGroupClick(Sender: TObject);

var MItems : TStrings; // Назви величин