Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2010, 00:03   #1
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию большой цикл

Собственно хочу сделать цикл одного длинного кода, но не пойму как, пробывал whilew do begin и repeat until, но не помогло
Код:
 
   begin
         
begin
      If Pos() > 0 then
      begin
      If Pos() > 0 then
      begin
      if Pos() = 1 then
      begin
      If Pos() > 0 then
          try
      finally
      end;
      end
      else
 begin
      If Pos() > 0 then
          try
      finally
      end;
          end;
      end;
 end;
нужно что бы код выполнялся N раз, но он зациклился на втором begin и с него наченает крутится заново, не до ходя до канца

Последний раз редактировалось bulldog5293; 13.12.2010 в 11:59.
bulldog5293 вне форума Ответить с цитированием
Старый 13.12.2010, 10:26   #2
Прик
Форумчанин
 
Регистрация: 08.09.2010
Сообщений: 880
По умолчанию

Если есть else, значит где-то есть if. А если есть ветвление, то кто поручится, что условия будут разные, а не направлять выполнение в одну и ту же ветку if.
Да и приведенный код ни о чем не говорящий. А try? Что у них за душой (finally, except)? Тоже ведь может вносить "помехи" при выполнении цикла в определенных условиях.
Прик вне форума Ответить с цитированием
Старый 13.12.2010, 12:00   #3
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

Я поправил год в первом посте
bulldog5293 вне форума Ответить с цитированием
Старый 13.12.2010, 12:03   #4
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Я бы первым делом отказался от такой структуры кода. Код должен быть легко читаемым. Необязательно делать кучу вложенных begin .. end;
_SERGEYX_ вне форума Ответить с цитированием
Старый 13.12.2010, 12:13   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

На первый взгляд количество begin-ов и end-ов не соответствует друг другу. Да и прочитать такой код проблемно
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 13.12.2010, 12:24   #6
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

begin end сделаны только из-за
Код:
begin
      If Pos() > 0 then
      begin
Цитата:
На первый взгляд количество begin-ов и end-ов не соответствует друг другу.
ну мож и подзабыл где добавить ещё, но не в них же дело, вопрос решил тем что все begin заменил на try, спасибо тем кто принил дело в дискусии
Вопрос снят

Последний раз редактировалось bulldog5293; 13.12.2010 в 12:53.
bulldog5293 вне форума Ответить с цитированием
Старый 13.12.2010, 16:30   #7
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

Цитата:
Код:
   try
      finally
      end;
а вот это зачем?
vovk вне форума Ответить с цитированием
Старый 15.12.2010, 15:06   #8
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

Цитата:
Сообщение от bulldog5293 Посмотреть сообщение
Собственно хочу сделать цикл одного длинного кода
а можно код по подробнее, ато смысла не поиму
VirusN13
ArtGrek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Очень большой цикл, как оптимизировать? Marsel737 Общие вопросы Delphi 3 06.09.2010 10:08
Цикл по времени - Как сделать так чтобы цикл выполнялся к примеру 10 секунд ? Anarki Общие вопросы C/C++ 3 13.11.2009 19:23
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) Mr.User Помощь студентам 9 23.11.2007 01:34