Перебор элементов в цикле

[epickgod]

Добрый день, друзья! У меня возник вопрос:

- Есть 2 формы.
- На первой форме расположены 10 Edit`ов
- На второй 2 Edit`a и Button

Как сделать так, чтобы при нажатии на баттон в первую форму, в первые два эдита попадали значения эдитов со второй формы. Еще один клик и заполняются следующие два поля в первой форме.

Пробывал так, но выдает ошибку "List Index out of bounds":

procedure TForm2.Button1Click(Sender: TObject);
var z: integer;
begin
//Обнуляем счетчик
z:=0;

//Пробегаем циклом по элементам
for z:=0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[z] is TEdit then
      begin
        TEdit(Components[z]).Text := Edit1.Text;
        TEdit(Components[z+1]).Text := Edit2.Text;
      end;
    end;
z := z+2;
end;

Что не так? Когда это все было в одной форме, то все работало... Помогите, а?

[Stilet]

то все работало

Да-а-а? Странно. Не должно было работать
Впрочем ладно:

      begin
        TEdit(Form1.Components[z]).Text := Edit1.Text;
        TEdit(Form1.Components[z+1]).Text := Edit2.Text;
      end;

Увидел что забыл?

[epickgod]

Все равно блин разные ошибки выдает...посмотрите плз исходник. Что не так?

[AnKor94]

Сообщение от Stilet

Да-а-а? Странно. Не должно было работать
Впрочем ладно:

      begin
        TEdit(Form1.Components[z]).Text := Edit1.Text;
        TEdit(Form1.Components[z+1]).Text := Edit2.Text;
      end;

Увидел что забыл?

begin
        TEdit(Form1.Components[z]).Text := Form2.Edit1.Text;
        TEdit(Form1.Components[z+1]).Text := Form2.Edit2.Text;
      end;

Увидел что забыл?

[Stilet]

Увидел что забыл?

Акстись )

procedure TForm2.Button1Click(Sender: TObject);

Увидел?

[epickgod]

Теперь выдает:

Access violation at address 004C01D4. Read of address 004C01D4.

И вместо того, чтобы заполнились первые 2 эдита заполняются все эдиты нулями и прочей белебердой

[epickgod]

Сообщение от Stilet

Акстись )

procedure TForm2.Button1Click(Sender: TObject);

Увидел?

И че в этой строке не так?

[Stilet]

Вообще-то ты стратегию неверную выбрал...
ИМХО при таком раскладе нужно по другому код писать. Но ты объясни детально зачем это нужно, уверен что есть другие способы попроще чем тот который ты выбрал.

И че в этой строке не так?

Все так Это я отвечал для AnKor94

[epickgod]

Я работаю оперптором в фотосалоне. Пишу прогу дабы облегчить себе жизнь по приему заказов. Есть 8 форматов фотографии, которые мы печатаем (9х13,10х15,13х18,15х21,20х30,25х38 ,30х40,30х46). Моя прога сожержит в общем виде 2 окна. В одном типа база данных (которая как бы должна храниться в тхт и при перезагрузке проги востанавиваться) которая выглядит в общем виде так: 100 эдитов (расчитано на 50 заказов, т.к. я неумею динамически создавать эдиты в нужное время в нужном месте), разбитых по 50 в 2 столбца. (в первом номер заказа, во втором - сумма заказа). И так для 50 заказов. Второе же в общем виде содержит 9 эдитов и 2 кнопки (1й эдит - это номер заказа, а в остальные 8 вписывается кол-во фото нужного формата. И две кнопки: 1я-"Заказ", которая считает стоимость заказа, и 2я - "Внести", для которой сейчас и пишу код). Так вот, Надо чтобы при нажатии на кнопку "ВНЕСТИ", то чтобы в первую форму в первыю пару эдитов попадал номер заказа со второй формы и сумма заказа, тоже со второй формы. Так они заполняют первые два эдита на 1й форме. При следующем заполнении формы заказа и соответственно клике на "Внести" в "Базу" дописывается еще одна пара (Номер заказа - Сумма заказа). И так при каждом клике. Такая вот проблема. Прилагаю исходник. Мож понадобиться...

[epickgod]

ап .