|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Проблема с дипломом!!!прошу помоч
Возникла кое какая проблема..делаю диплом..прога заключается в том что бы создать билет в кинотеатр...ни как не могу осуществить функцию...она заключается в следующем: на форме расположен зал. пользователь может кликнуть по любому из мест и это место обозначится красным..типо "ЗАНЯТО" и label"место"обозначится соответственным местом.не могу сделать обновления этих мест..чтобы при выборе другого фильма..место опять стало свободным так как еще не назначено..и можно было назначить его...а при выборе фильма который уже выбирался..сохранялись занятые места ..вот так вот...пробовал делать но не получилось вот что я пробовал писать
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 ('занято' ); ///вот кусок ..если кто может помоч..плиз отзовитесь..обьяссню все подробно..спс за внимание |
#3
|
||||
|
||||
пасибки
Да ты меня понял именно это я и хотел сделать))спс огромное
|
#4
|
||||
|
||||
тока как бы ща все связать с моей прогой))))
|
#5
|
||||
|
||||
непонятно..почму там в списке уже появляются фильмы пронумерованные..идея в том что бы яильмы добавлялись в ходе выполнения прграммы
|
#6
|
||||
|
||||
с этим я разобрался..немогу сделать так чтобы когда нажимаешь на место в кинотеатре..то номер места и ряд..отображались на других label
|