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

procedure TMainForm.RadioGroupClick(Sender: TObject);

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

i, t : integer;

begin

MItems := TStringList.Create;

Panel.Free; // знищення попередньої панелі

Panel := TPanel.Create(TabSheet1);// і створення нової

Panel.Parent := TabSheet1;

Panel.Align := alClient;

Panel.Caption:='';

Panel.BevelInner := bvRaised;

Panel.BevelOuter :=bvLowered;

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 для редагування значень