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

try

F.ReadSection(RadioGroup.Items[RadioGroup.ItemIndex], MItems);

t:= round((210-MItems.Count*20)/2); // центрування

SetLength(Edits, MItems.Count); // зміна розміру масиву Edits for i := 0 to MItems.Count-1 do

begin

Mlabel := TLabel.Create(Panel);

Mlabel.Parent := Panel;

Mlabel.Left:=10;

Mlabel.Top := i*20+t+1;

Mlabel.Caption := MItems[i]; // відображення назв величин

MLabel.Hint:=MItems[i];

MEdit := TEdit.Create(Panel);

MEdit.Parent := Panel;

MEdit.Left := 140;

MEdit.Top := i*20+t;

MEdit.Height:=18;

MEdit.Width :=100;

MEdit.Hint:=MItems[i]; // створення Edits для редагування значень

Edits[i]:=MEdit;

MButton := TSpeedButton.Create(Panel);

MButton.Parent := Panel;

MButton.Left := 243;

MButton.Top := i*20+t;

MButton.Height:= 20;

MButton.Width := 85;