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

MButton.Caption:='Перерахунок'; // створення кнопок

MButton.Flat := True;

MButton.Hint:=MItems[i];

MButton.OnClick := MButtonClick;

end;

finally

MItems.Free;

end;

StatusBar1.SimpleText:= RadioGroup.Items[RadioGroup.ItemIndex];

end;

// знищує попередню панель і створює нову відповідно до вибраного пункту

procedure TMainForm.MButtonClick(Sender: TObject);

// Реакція на кнопку „Перерахунок”

var i, j : integer;

val, Y, X, Etalon : Extended;

begin

val:=1;

for i := 0 to High(Edits) do

begin

if Edits[i].Hint=( Sender as TSpeedButton).Hint then

begin

try // знайдено Edits[i] до якого викликано процедуру

if Edits[i].Text<>'' then

val := StrToFloat(Edits[i].Text)

else begin Edits[i].Text:='1'; val:=1; end;