Возникла кое какая проблема..делаю диплом..прога заключается в том что бы создать билет в кинотеатр...ни как не могу осуществить функцию...она заключается в следующем: на форме расположен зал. пользователь может кликнуть по любому из мест и это место обозначится красным..типо "ЗАНЯТО" и 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 ('занято' );
///вот кусок ..если кто может помоч..плиз отзовитесь..обьяссню все подробно..спс за внимание