На форме находится несколько 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;
Админ: Пользуемся тегами при оформлении кода!