как сделать в пунктах подпункты? |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
как сделать в пунктах подпункты? |
INZA |
30.10.2011 21:36
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
как сделать в пунктах подпункты?
Program L3; |
Rian |
31.10.2011 14:27
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 394 Пол: Мужской Репутация: 9 |
если проще думаю хватит объявить пункты двумерным массивом
pars:array [0..2, 0..5] of record cmd:integer; text:string end; и в цикле сначала вывести, а потом проверить cmd -------------------- Objective-C, Unity3d
|
INZA |
31.10.2011 17:47
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
|
Гость |
31.10.2011 17:52
Сообщение
#4
|
Гость |
|
INZA |
31.10.2011 19:20
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
|
Rian |
31.10.2011 19:27
Сообщение
#6
|
Знаток Группа: Пользователи Сообщений: 394 Пол: Мужской Репутация: 9 |
ну тогда readkey записывае в cmd1, cmd2
и во вложеном case используй ее только для вывода на экран все равно будет лучше многомерный массив... ну мне так кажется и для проверок -------------------- Objective-C, Unity3d
|
INZA |
31.10.2011 20:07
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
|
IUnknown |
31.10.2011 22:59
Сообщение
#8
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Пишется простейшая функция, которая, собственно, отображает менюшку, и делается так:
Меню любой степени вложенности (Показать/Скрыть)
|
Rian |
1.11.2011 0:04
Сообщение
#9
|
Знаток Группа: Пользователи Сообщений: 394 Пол: Мужской Репутация: 9 |
(не надо никаких двумерных массивов: в одном подменю может быть 9 пунктов, в другом - 2, что, их все под одну гребенку, и всем место под 9 элементов выделять? "Это не наш метод" (С)) очень привык к динамическим -------------------- Objective-C, Unity3d
|
INZA |
4.11.2011 20:19
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
Пишется простейшая функция, которая, собственно, отображает менюшку, и делается так: Меню любой степени вложенности (Показать/Скрыть)
спасибо |
INZA |
26.11.2011 17:50
Сообщение
#11
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
|
IUnknown |
26.11.2011 17:55
Сообщение
#12
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Какой компилятор?
|
INZA |
26.11.2011 17:58
Сообщение
#13
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
|
IUnknown |
26.11.2011 18:05
Сообщение
#14
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High:
function menu(TA : byte; const items : array of string) : integer; Сообщение отредактировано: IUnknown - 26.11.2011 18:06 |
INZA |
26.11.2011 18:14
Сообщение
#15
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High: function menu(TA : byte; const items : array of string) : integer; а нет перепутал извините всё таки турбо запустил на free всё пошло))) ещё раз спасибо Сообщение отредактировано: INZA - 26.11.2011 18:21 |
INZA |
11.12.2011 18:56
Сообщение
#16
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Владимир Репутация: 0 |
Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High: function menu(TA : byte; const items : array of string) : integer; почему то когда так сделал пропал пункт Exit,не скажете почему? всё не надо я сделал Сообщение отредактировано: INZA - 11.12.2011 19:00 |
Текстовая версия | 24.05.2024 18:34 |