Значения поля edit

[glazik]

Доброго времени суток!

Начал программировать на Delphi
Такой вопрос: каким образом можно сделать, чтобы editы программа создавала сама в зависимости от цифры которая указана в другом editе. Например, в edit пользователь ввел число 5, следовательно программа должна создать новых 5 editов. Заранее спасибо.

[exn]

в рантайме создавай.

[SERG1980]

это называется динамическое создание компонентов
если пройтись поиском то можно найти кучу ответов на вашу тему
Пример создания

var e:  array [1..5]of TEdit;

for i:=1 to 5 do
    begin
     e[ic]:=TEdit.Create(Form1);
     e[i].Parent:=form1;
     e[i].Width:=...;
     e[i].Top:=...;
     e[i].Left:=...;
    end;

но может лучше для ввода данных использовать стринггрид!!?

[_Den_1984]

действительно, проще создать 5 строк в таблице, чем создавать 5 едитов

[glazik]

да я нуб(((, а если мне нада создать типа 3*3 поле из editов, то что лучше использовать если не сложно с примером.....??

[_Den_1984]

а ты чего вообще делаешь? может как-нибудь по другому организовать ввод данных?может одним эдитом и одной кнопкой но циклом записывать значения эдита в разные переменные полсе каждого нажатия кнопки? не?

[glazik]

задача в зависимости от количества человек создать для каждого определенное количество параметров, которые будут тоже вводиться пользователем с клавиатуры. Например, представь себе журнал. 30 челов напротив каждого оценки по количеству дней, четвертная вычисляется как среднее арифметическое, вот примерно тоже самое...

[Sibedir]

Да стринггрид, стринггрид это. Даже не сомнивайтесь.

TStringGrid на закладке Additional

[glazik]

))))tе спс за совет, очень помогло... это решение))))

Единственный косяк, что внешний вид не очень, но действенно... Стринггридом все получилось как нада, решил вернуться к первоначальной своей задумке... И вот возникла проблема:

procedure TForm2.Button1Click(Sender: TObject);
var
i,x:integer;
mass:array [1..255] of tedit;
begin
     x:=strtoint(form1.edit1.text);
     for i:=1 to x do
     begin
      mass[i]:=TEdit.Create(Form2);
      mass[i].Parent:=form2;
      mass[i].font.size:=20;
      mass[i].Width:=40;
      mass[i].Top:=100;
      mass[i].Left:=100+i*50;
     end;
     end;

Выдает ошибку is not a valid integer value,
подскажите, пожалуйста, как поправить. Буду очень признателен



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SERG1980]

Очень странно вы значение лефт подсчитываете

mass[i].Left:=100+i*50;

т.е возьмём последний шаг цикла где i=255 100+255*50 итого 12850
и какая же ширина формы при этом дожна быть????????????
хотя бы так вот

mass[i].Left:=l+((i-1)*(w+z));

где
l - левый край первого едита
w - ширина едита
z - расстояние между концом одного и началом другого эдита