![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() ![]() Type Tfilm = record kino : string; mesto : array [0..20] of byte; end; var films : array [0..9] of Tfilm; ... Procedure Tform1.create (Object...) var i: byte; BEGIN For i:=0 to combobox1.items.count-1 do films[i].kino=combobox1.items[i]; END; Procedure Tform1.label2 click //label2 - кликанье по месту в зале begin if labeln.color=cllime then films[combobox1.itemIndex].mesto[strToInt(label4.caption)]:=1; label2.color=clred; else showmessage ('занято' ); ///вот кусок ..если кто может помоч..плиз отзовитесь..обьяссню все подробно..спс за внимание ![]() |