|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Чтение с нескольких Editbox
На форме находится несколько 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; Последний раз редактировалось Admin, 06.11.2017 в 18:21. |