Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 17.05.2007, 18:21
ilang ilang вне форума
Новичок
 
Регистрация: 11.12.2006
Сообщения: 68
Репутация: 10
По умолчанию

Может вам проще в чате? )))
Ответить с цитированием
  #32  
Старый 17.05.2007, 18:25
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

блин так получилось...я не думал что все так сложн буит
Ответить с цитированием
  #33  
Старый 17.05.2007, 18:32
ilang ilang вне форума
Новичок
 
Регистрация: 11.12.2006
Сообщения: 68
Репутация: 10
По умолчанию

как же ты дожил до диплома? )
Ответить с цитированием
  #34  
Старый 17.05.2007, 18:34
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

да сам не знаю)))
Ответить с цитированием
  #35  
Старый 17.05.2007, 18:45
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Цитата:
Сообщение от tager
а чтобы связать все три условия вот этот кусок нада писать для каждого?
if not Seans[ComboBox1.ItemIndex][r][m].State then
begin
Seans[ComboBox1.ItemIndex][r][m].State := true;
( Sender as TPanel ).Color := clRed;
end
else
begin
Seans[ComboBox1.ItemIndex][r][m].State := false;
( Sender as TPanel ).Color := clBtnFace;
end;
под одной процедурой?

На третье условие пример небыл рассчитан, в примере учитавается только фильм, а время не учитывается… там вообще неплохо бы все переписать…

А вообще, жидковатая тема для диплома… Ты где учишься?
Ответить с цитированием
  #36  
Старый 17.05.2007, 18:48
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

В колледже МГКИП...
а если вот так условия поставить...это для фильма и времени
if not ( Seans[ComboBox1.ItemIndex][r][m].State ) and
( time_Seans[ComboBox2.ItemIndex][r][m].State_time ) then
begin
Seans[ComboBox1.ItemIndex][r][m].State := true;
time_Seans[ComboBox2.ItemIndex][r][m].State_time := true;
( Sender as TPanel ).Color := clRed;
end
else
begin
Seans[ComboBox1.ItemIndex][r][m].State := false;
time_Seans[ComboBox2.ItemIndex][r][m].State_time := false;
( Sender as TPanel ).Color := clBtnFace;
end;
я имею ввиду обьеденить все три условия...в одно с помощью AND . чтобы учитывались все три...
Ответить с цитированием
  #37  
Старый 17.05.2007, 18:51
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Может и сработает, ты потестируй…
Ответить с цитированием
  #38  
Старый 17.05.2007, 18:59
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

че та он даже не хочет выделять места после этого
Ответить с цитированием
  #39  
Старый 17.05.2007, 19:02
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

а State это что такое типа статус?
Ответить с цитированием
  #40  
Старый 17.05.2007, 19:09
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

Ща попробую перевести кусок этот
if not ( Seans[ComboBox1.ItemIndex][r][m].State ) and
( time_Seans[ComboBox2.ItemIndex][r][m].State ) then
begin
Seans[ComboBox1.ItemIndex][r][m].State := true;
time_Seans[ComboBox2.ItemIndex][r][m].State := true;
( Sender as TPanel ).Color := clRed;
end
else
begin
Seans[ComboBox1.ItemIndex][r][m].State := false;
time_Seans[ComboBox2.ItemIndex][r][m].State := false;
( Sender as TPanel ).Color := clBtnFace;
end;
------------------------
как я понимаю.. если в массиве combobox1(ряд и место).обозначены и в массиве комбобокс2(ряд и место).обозначены
то
обозначенные массивы принимают знаечение истинно и цвет красный
иначе
значение ложно и цвет серый
Ответить с цитированием
  #41  
Старый 17.05.2007, 19:12
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

нет..это чуш какая то
Ответить с цитированием
  #42  
Старый 17.05.2007, 20:32
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

State - если true, место занято, если false, место свободно.

combobox1 - это не массив, а индекс массива (как видишь, массив трехмерный Seans[ComboBox1.ItemIndex][r][m])
Ответить с цитированием
  #43  
Старый 17.05.2007, 20:48
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

блин эт жесть....а нельзя как нить все проще это сделать..
Ответить с цитированием
  #44  
Старый 17.05.2007, 20:50
Аватар для tager
tager tager вне форума
Прохожий
 
Регистрация: 16.05.2007
Сообщения: 39
Репутация: 10
По умолчанию

да кстати я имел ввиду что seans это массив..а не combobox..
Ответить с цитированием
  #45  
Старый 17.05.2007, 21:26
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Куда уж проще
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter