|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.06.2014, 14:50 | #1 |
Регистрация: 09.06.2014
Сообщений: 4
|
аварийный выход
Код:
Последний раз редактировалось Stilet; 13.06.2014 в 15:19. |
13.06.2014, 15:22 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Та самое простое - развести процедуру по трем разным процедурам и последовательно их вызывать.
I'm learning to live...
|
13.06.2014, 22:32 | #3 | |
Регистрация: 09.06.2014
Сообщений: 4
|
Цитата:
У меня не получается избавиться от Exit даже тогда, когда Запихиваю все всё в один массив [code]procedure poisk; // Процедура поиска жильца var s0, s1: string; i: integer; fnd: boolean; begin fnd:= false; for i := 0 to 4 do // Ищем по одноместным номерам if (Pos(s, mas1[i]) <> 0) AND ((mas1[i][length(s) + 1] = ' ') OR (length(mas1[i]) = length(s)) OR (mas1[i][length(s) +%2 Последний раз редактировалось Stilet; 13.06.2014 в 22:44. |
|
13.06.2014, 23:06 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Тогда даже условие типа Код:
I'm learning to live...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выход из Excel | alkador | Общие вопросы Delphi | 2 | 10.03.2012 09:30 |
Кнопка Выход(на выход Из программы)С++ Напишите код | ProGec4 | Общие вопросы C/C++ | 3 | 19.02.2012 15:36 |
Выход программы. | ZvEr_HaCkEr | Свободное общение | 26 | 16.10.2010 21:00 |
Выход из цикла | Сергей089 | Помощь студентам | 6 | 17.03.2010 16:44 |
выход по ctrl z | U-S | Общие вопросы C/C++ | 3 | 15.10.2009 15:18 |