TEdit & .txt

[epickgod]

Доброй ночи, друзья!
Очень нуждаюсь в вашей помощи! Суть вопроса в следующем:
есть 2 формы. На первой 2 поля edit , а на второй также 2 эдита и баттон. Так вот, необходимо заполнив на второй форме поля и нажав на баттон, чтобы они отображались в эдитах на первой форме. Это первый момент. Второй момент это то, что поля на первой форме должны динамически добавляться по 2 шт. При каждом нажатии баннона со второй формы. Т.е изначально допустим 2 поля с одними данными, зетем нажимаешь на кномку, их становится 4шт. Т.е в 2 старых поля и к ним добавляются 2 новых с новыми значениями, еще раз нажимаешь - уже 6 полей и т.д. И третий момент это то, что все значения с первой формы (а я изначально незнаю сколько их будет) должны гдето хранится(предположительно в 1 тхт), чтобы по событию онКрейт формы они востанавливались после закрытия формы. Ну, и как бонус можно добавить на первую форму кнопку "очистить базу". Кстати, для хранения инфо приемлем только тхт/ини/ и пр. Ацес, эскьюэль и пр. базы отподают. Очень надеюсь на вашу помощь, а то я скоро с ума сойду. Заранее спасибо. Дима

[epickgod]

...ап.....

[epickgod]

я вот пытаюсь их запихнуть в тхт по одному, но предчвствую, что это лажа

 
var f1, f2, f3,.. fn: textfile;
begin
Assignfile(f1,'data1.txt');
rewrite(f1);
write (f1, form1.edit1.text);
closefile(f1);
// и так для каждого эдита.
// но проблема в том что я не знаю, // как написать если заведомо 
//неизвесно кол-во эдитов. И я так // догадываюсь, что добавлять по
//одному это бред.надо как то циклом
//но как? И как потом прочесть
// из файла все данные и правильно
//их распределить по полям?..

[Mad_Cat]

это не лажа так и придется делать
В цикле пробеги по компонентам формы и если это эдит пиши его текст в файл. Примеров куча как на форуме так и в сети

[epickgod]

но ведь по идеи можно же как то пройтись циклом и все залить в ОДИН файл. Но как? И как потом разбить значения из 1 файла на неопред. значение эдитов?.. Ужс. У меня от такой задачки лопается мозг. А руководитель ее неприклоно требует(

[Mad_Cat]

разбить как? Считывай файл построчно и создавай эдиты с текстом из строк-все банально за небольшое вознаграждение напишу если нужно. Стучи в аську

[Serge_Bliznykov]

ну, не обязательно так.
например, всё Editы на форме легко перебрать в цикле....

[epickgod]

можешь подсказать как? И как считать их? Я просто новичек в вашей непростой проффесии. И то, что вам кажется бональным для меня является неразрешимой проблемой

[Serge_Bliznykov]

Дима, а у Вас хоть что-то сделано?
тогда выложили бы исходники проекта (только в архиве!!)
Дело в том, что можно было бы прямо на примере вашего же кода и написать пример. Думаю, что Вам было бы чуть-чуть понятнее.

теперь по сути ответа на Ваш вопрос.
дело в том, что у любого контрола на форме есть родитель и владелец. Если контролы создаются динамически (в runtime, во время работы программы) им тоже крайне желательно правильно присваивать родителя/владельца.
перебрать все контролы можно так:

    for _i := 0 to Self.ComponentCount-1 do
      if Components[_i] is TEdit then Memo1.Lines.Add(TEdit(Components[_i]).Text);

или так:

    for _i := 0 to Form1.ComponentCount-1 do
      if Components[_i] is TEdit then Memo1.Lines.Add(TEdit(Components[_i]).Text);

[epickgod]

большое спасибо за понимание! Вечером с работы прийду, постараюсь выложить.