[hunn74]

На форме находится несколько Editbox. Надо с них считать данные. Написал код, которые почему-то не работает. Помогите пожалуйста!

Код:

procedure vvod_massiv;
var c: text;
begin
for i:=1 to n do
 begin
  c:=TEdit(Findcomponent('Edit'&IntToStr(i))).caption;
  if c='' then a[i]:=0 else a[i]:=StrToInt(c);
 end;
end;

Админ: Пользуемся тегами при оформлении кода!