Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2017.01.15;
Скачать: [xml.tar.bz2];

Вниз

вопрос по Case   Найти похожие ветки 

 
SvetaZ1   (2015-03-15 00:29) [0]

Есть конструкция вида:

for i := 0 to Count - 1 do
begin
  case Num of
     1: begin
           код_1;
           if(условие) then ???
           код 2;
         end;
     2:....................
  end;
end;


Как можно прервать выполнение кода "код_2"? внутри Case
Вариант:

if(not условие) then код 2;

не предлагать

Break - обрывает цикл.
Exit - процедуру.


 
DVM ©   (2015-03-15 00:37) [1]

Continue что ли нужно?


 
Германн ©   (2015-03-15 01:50) [2]


> Вариант:
>
> if(not условие) then код 2;
>
> не предлагать
>

А без него никак не обойтись. Без проверки какого либо условия, нельзя сделать ветвление.

> DVM ©   (15.03.15 00:37) [1]
>
> Continue что ли нужно?
>

Возможно что именно оно нужно. Но Continue в данном случае совсем будет нечитаемым.


 
manaka ©   (2015-03-15 10:21) [3]

Удалено модератором


 
Dimka Maslov ©   (2015-03-15 11:38) [4]

Написать внутреннюю функцию, в которой нормально будет работать Exit?


 
Dennis I. Komarov ©   (2015-03-15 13:54) [5]

А я бы про X Y Z написал...


 
Jeer ©   (2015-03-15 18:56) [6]

goto никто не отменил, но стоит посмотреть на логику в целом.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2017.01.15;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.054 c
15-1457038707
Германн
2016-03-03 23:58
2017.01.15
Runtime packages


15-1448011257
Сергей Суровцев
2015-11-20 12:20
2017.01.15
Вот и про нас вспомнили


15-1448010775
Kerk
2015-11-20 12:12
2017.01.15
Все работы хороши


2-1421218510
Drowsy
2015-01-14 09:55
2017.01.15
Нужен компонент типа PaintBox.


2-1426067911
aka
2015-03-11 12:58
2017.01.15
TObject через ссылку





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский