По номеру билета определить является ли он активным или нет

@Настя Трусова · Регистрация: 04.09.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте. Мне надо при выборе номера билета определить является ли он в продаже или активным. Если да, то чтоб выбыло зеленым, если нет то красным. Подскажите пж как это реализовать

@krapotkin · 10.06.2018, 14:52

ошибку вижу
где кот?

@Настя Трусова · 10.06.2018, 15:22 **[ТС]**

вот, я его вставила и написала

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
М:array of array of intеrger;
clr:=clWhite;
place := ACol;
row := ARow+1;
if ACol=0 then begin
  grid.canvas.Brush.color := clr;
  grid.canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(Row));
  exit;
end;
 
status := M[row-1,place-1];
if status = 1 then 
  clr := $f0f0FF;
grid.canvas.Brush.color := clr;
grid.canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(place));

@krapotkin · 10.06.2018, 15:28

а это я случайно написал?

Сообщение от krapotkin

размер массива установить кол_во_рядов x кол_во_мест
http://www.delphibasics.ru/setlength.php

@Настя Трусова · 10.06.2018, 15:38 **[ТС]**

А можно еще вопрос. Я когда нажимаю на 1 строку строку в combobox, то у меня высвечивается форма, когда нажимаю на 2 строку, тоже высчечивается другая фома, но при нажатии на отмена, первая форма остается. Как сделать так, что бы при нажатии на определенну строку мне выдало ту форму которую мне надо, а потом при нажатии на отмена был выход

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm_BILETI.cbb1Click(Sender: TObject);
begin
 if cbb1.ItemIndex=0 then
form1.ShowModal;
 
if cbb1.ItemIndex=1 then
form4.ShowModal;
 
end;

@krapotkin · 10.06.2018, 15:48

из этого кода не следует того, что вы написали
значит, что-то не так как вы говорите
ShowModal показывает форму и ждет пока ее закроют, после этого выполнение кода продолжается

@Настя Трусова · 10.06.2018, 21:47 **[ТС]**

А можете написать код для установки размера массива? Я не очень понимаю как написать?

@krapotkin · 11.06.2018, 01:39

http://www.delphibasics.ru/setlength.php
читать до слов устанавливаем длину многомерного массива

@Настя Трусова · 11.06.2018, 15:55 **[ТС]**

я многомерный как аз и делала, но оно у меня вывелось то что в примере было, я подставляла М, но все равно

Добавлено через 26 минут

Сообщение от Настя Трусова

А можно еще вопрос. Я когда нажимаю на 1 строку строку в combobox, то у меня высвечивается форма, когда нажимаю на 2 строку, тоже высчечивается другая фома, но при нажатии на отмена, первая форма остается. Как сделать так, что бы при нажатии на определенну строку мне выдало ту форму которую мне надо, а потом при нажатии на отмена был выход
DelphiВыделить код
1
2
3
4
5
6
7
8
9
procedure TForm_BILETI.cbb1Click(Sender: TObject);
begin
*if cbb1.ItemIndex=0 then
form1.ShowModal;
if cbb1.ItemIndex=1 then
form4.ShowModal;
end;

я когда нажимаю на сторку то мне выдает сразу две формы, а мне надо чтоб только одну

@krapotkin · 11.06.2018, 16:32

Сообщение от Настя Трусова

я многомерный как аз и делала, но оно у меня вывелось то что в примере было, я подставляла М, но все равно

вы же ничего не показываете. как проверить?
где у вас объявление массива?
где у вас установка размеров массива?

давайте рассуждать. если ItemIndex=0 то МОДАЛЬНО показать form1
после ЗАКРЫТИЯ form1 мы проверяет если itemIndex=1
как тут Form1 может остаться на экране? мы только после её закрытия вообще дальше можем пройти

Добавлено через 49 секунд
я же говорю, давайте весь код
ваши куски не говорят о ваших ошибках

@Настя Трусова · 11.06.2018, 16:43 **[ТС]**

Сообщение от krapotkin

давайте рассуждать. если ItemIndex=0 то МОДАЛЬНО показать form1
после ЗАКРЫТИЯ form1 мы проверяет если itemIndex=1
как тут Form1 может остаться на экране? мы только после её закрытия вообще дальше можем пройти

я уже Modal убрала и оставила только form1.Show

Добавлено через 39 секунд
вот весь код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
if cbb1.ItemIndex=0 then
form1.Show;
 
 
if cbb1.ItemIndex=1 then
form4.Show;
 
 
if cbb1.ItemIndex=2 then
form5.Show;
 
if cbb1.ItemIndex=3 then
form7.Show;
 
if cbb1.ItemIndex=4 then
form8.Show;
 
if cbb1.ItemIndex=5 then
form10.Show;
 
 if cbb1.ItemIndex=6 then
form11.Show;

@krapotkin · 11.06.2018, 16:44

ну, вам говорили, что нужно модал, но вы предпочитаете решать проблемы, которые себе самостоятельно создаете

@Настя Трусова · 11.06.2018, 16:44 **[ТС]**

я когда нажимаю на новую строку в combobox то мне надо что б высвечивалась новая форма

@krapotkin · 11.06.2018, 16:46

Сообщение от Настя Трусова

вот весь код

интересно, где тут массив M

Добавлено через 59 секунд
нажали, высветилась модально, закрыли
что вас не устраивает в этой цепочке?

@Настя Трусова · 11.06.2018, 16:54 **[ТС]**

я когда нажимаю то мне 2 формы высвечиваеи

@krapotkin · 11.06.2018, 16:56

5 постов назад я попросил привести полный код
потому что из вашего кода на КАЖДОЕ значение ItemIndex выводится ОДНА форма
а значений у ItemIndex всего одно

@Настя Трусова · 11.06.2018, 16:57 **[ТС]**

все, с формами у меня получилось

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110

	По номеру билета определить является ли он активным или нет 08.06.2018, 14:45. Показов 4325. Ответов 35 Метки нет (Все метки) Здравствуйте. Мне надо при выборе номера билета определить является ли он в продаже или активным. Если да, то чтоб выбыло зеленым, если нет то красным. Подскажите пж как это реализовать 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	10.06.2018, 14:52
	ошибку вижу где кот? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	10.06.2018, 15:48
	из этого кода не следует того, что вы написали значит, что-то не так как вы говорите ShowModal показывает форму и ждет пока ее закроют, после этого выполнение кода продолжается 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	10.06.2018, 21:47 [ТС]
	А можете написать код для установки размера массива? Я не очень понимаю как написать? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	11.06.2018, 01:39
	http://www.delphibasics.ru/setlength.php читать до слов устанавливаем длину многомерного массива 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	11.06.2018, 16:44
	ну, вам говорили, что нужно модал, но вы предпочитаете решать проблемы, которые себе самостоятельно создаете 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	11.06.2018, 16:44 [ТС]
	я когда нажимаю на новую строку в combobox то мне надо что б высвечивалась новая форма 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	11.06.2018, 16:54 [ТС]
	я когда нажимаю то мне 2 формы высвечиваеи 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	11.06.2018, 16:56
	5 постов назад я попросил привести полный код потому что из вашего кода на КАЖДОЕ значение ItemIndex выводится ОДНА форма а значений у ItemIndex всего одно 0

@Настя Трусова 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 110
	11.06.2018, 16:57 [ТС]
	все, с формами у меня получилось 0