Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка условий

Макака © (2016-02-29 16:29:00)
есть штук 10 последовательных if () then
Как сделать, чтобы при выполнении первого условия остальные не проверялись?
если за ними нет кода, то можно сделать exit;
пробовал ещё
if () then что то иначе if () then
итак все, но после компиляции ответ не сошёлся, так что подумал это тоже не катит.

Игорь Шевченко (2016-03-01 10:27:00) [1]
http://segfault.kiev.ua/smart-questions-ru.html

Inovet (2016-03-01 10:21:00) [2]
> [9] Макака (29.02.16 20:11)
> Мне нужно старшинство по убыванию A K Q J T

-Ord()

icWasya (2016-03-01 09:29:00) [3]
Для автора - код в студию!
Покажи как пробовал написать, и что, по твоему, идёт не так.

Макака (2016-03-01 04:03:00) [4]
Да какие возмущения, я это самым первым делом проверил, посмотрел и завернул губу обратно.

Плохиш (2016-03-01 01:17:00) [5]

> Галочку поверни влево :)
</I
Точно, но надо было подождать возмущения от топикстартера ;-)

Германн (2016-03-01 00:38:00) [6]

> Макака (29.02.16 17:05) [4]
>
> А case только с числовыми переменными работает?
> С строкой никак не сделать?

Переходи на Лазарус. Там можно.

> Плохиш © (29.02.16 23:39) [13]
>
> Пардон

Галочку поверни влево :)

Плохиш (2016-02-29 23:41:00) [7]

> Мне нужно старшинство по убыванию A K Q J T

Невыполнимое условие в нашей реальности.

Плохиш (2016-02-29 23:39:00) [8]
Пардон
Ord('A') > Ord('J') > Ord('K') > Ord('Q') > Ord('T')

Плохиш (2016-02-29 23:39:00) [9]

> эндсоувот © (29.02.16 20:52) [10]
>
> настолько не так как надо что даже
>
> case Ord(CharSymb)
> end
>
> не помогает?

goto [3]

PS. Партизанов здесь не любят.

Плохиш (2016-02-29 23:37:00) [10]
Ord('A') > Ord('K') > Ord('Q') > Ord('J') > Ord('T')
В этой реальности всегда!

эндсоувот (2016-02-29 20:52:00) [11]
настолько не так как надо что даже

case Ord(CharSymb)
end

не помогает?

Макака (2016-02-29 20:11:00) [12]
Ord(), но коды идут не так как мне надо, т.е. Мне нужно старшинство по убыванию A K Q J T, по кодам не получится

эндсоувот (2016-02-29 20:05:00) [13]
у символа есть код (числовой).
и по счастливой случайности коды эти на шкале целых стоят в том же порядке что и буквы.
и если к коду буквы R прибавить два то попадешь на букву T (перепрыгнув через S)

Макака (2016-02-29 19:48:00) [14]
расходуются же ресурсы дико, если этот кусок кода миллионы раз прогоняется

Макака (2016-02-29 19:47:00) [15]
значить на мой вопрос в первом посте больше ничего не сделать?

эндсоувот (2016-02-29 17:19:00) [16]
не с числовыми а с простыми типами данных.
строки и плавающая точка - к ним не относятся

Макака (2016-02-29 17:05:00) [17]
А case только с числовыми переменными работает?
С строкой никак не сделать?
типо
F: текстовая переменная
if F='R' then Result:=1;
if F='T' then Result:=2;

Плохиш (2016-02-29 16:56:00) [18]

> но после компиляции ответ не сошёлся

Ошибка в 17й строке, тут без вариантов.

Макака (2016-02-29 16:50:00) [19]
Я с ним никогда не работал, но похоже самое время (тоже подумал о нём)

Rouse_ (2016-02-29 16:49:00) [20]
ну сделай case

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »