Хочу предложить ещё способ, может не рациональный, но простенький)
Код:
procedure TForm1.Button5Click(Sender: TObject);
var i,n:integer;
label 1,2,3,4,5,6,7,8,9,10;
begin
labelededit1.Hide;
labelededit2.Hide;
labelededit3.Hide;
labelededit4.Hide;
labelededit5.Hide;
labelededit6.Hide;
labelededit7.Hide;
labelededit8.Hide;
labelededit9.Hide;
labelededit10.Hide;
n:=strtoint(Edit1.Text);
for i:=1 to n do
begin
case i of
1: labelededit1.Show;
2: labelededit2.Show;
3: labelededit3.Show;
4: labelededit4.Show;
5: labelededit5.Show;
6: labelededit6.Show;
7: labelededit7.Show;
8: labelededit8.Show;
9: labelededit9.Show;
10: labelededit10.Show;
end;
end;
end;
Админ: Пользуемся тегами, иначе последуют санкции!