Работа с Динамическим массивом эдитов

[Xatiko]

Доброго времени суток!
Подскажите в таком вопросе:
На форме есть memo и buton, в memo мы вводим число нажимаем на buton и создаются edit'ы столько сколько мы указали. Работает все хорошо, но мне надо производить арифметические действия с edit'ами. Например memo2.text:=edit1+edit2; .
Код:

procedure TForm1.Button1Click(Sender: TObject);

var Lab: Array of TLabel;
    Ed: Array of TEdit;
    i: Integer;
    n: integer;
  begin
  n := 500;
  SetLength(Lab, n+1);
  SetLength(Ed, n+1);

  for i:=1 to strtoint(memo1.Text) do
    begin
      Lab[i] := TLabel.Create(self);
      Lab[i].Parent := self;
      Lab[i].Left := 10;
      Lab[i].Top := i*30+20;
      Lab[i].Caption := 'Этикетка'+IntToStr(i);
      Ed[i] := TEdit.Create(self);
      Ed[i].Parent := self;
      Ed[i].Left := 150;
      Ed[i].Top := i*30+20;
      Ed[i].Text := 'Поле ввода '+IntToStr(i);
      Ed[i].Name:= 'Edit'+IntToStr(i);
    end;
 end;

Запись типо: memo2.text:=IntToStr(StrToInt(Edit1 .text)+StrToInt(Edit2.text));
Не пойдет выдает ошибку " is not a valid integer value"
Просьба откликнуться))




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

[GreenWizard]

так пиши:

memo2.text:=IntToStr(StrToIntDef(Edit1.text, 0)+StrToIntDef(Edit2.text, 0))

пустая строка не равна нулю, поэтому и падает

[GreenWizard]

кстати, приведённый код создания контролов ооооооочень странный
1) массивы не убиваются, а висят в памяти
2) зачем массив на 500 элементов, если нужно опр. количество? (из memo1)
3) с именами могут быть проблемы... если существует где-то компонент с таким именем, то вылезет ошибка

думаю, что там бОльшие проблемы с архитектурой проги

[VIK_aka_TOR]

1.

var Lab: Array of TLabel;
    Ed: Array of TEdit;

перенести в глобальное объявление а не в локальную переменную процедуры
2.

memo2.text:=IntToStr(StrToInt(Ed[i] .text)+StrToInt(Ed[i+1].text));

только убедись что числа есть...

[Xatiko]

Спасибо) Тема закрыта.