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

Edits[i]:=MEdit;

MButton := TSpeedButton.Create(Panel);

MButton.Parent := Panel;

MButton.Left := 243;

MButton.Top := i*20+t;

MButton.Height:= 20;

MButton.Width := 85;

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