Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2009, 08:22   #1
Des
Форумчанин
 
Регистрация: 12.11.2008
Сообщений: 124
По умолчанию Как правельно поставить for между if и and

Здравствуйте!
Нужно правельно расположить цикл for между and и then begin
Код:
if (g0 <> g1) and
   (g0 <> g2) and

   for  i:=0 to g6.Lines.Count do
        if g7.Lines.Strings[0] <> g8.Lines.Strings[i] then begin
...
...
...
end
else begin
...
...
end;
Как будет правильно?

Последний раз редактировалось Des; 07.05.2009 в 08:25.
Des вне форума Ответить с цитированием
Старый 07.05.2009, 08:26   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

цикл For не является логической операцией.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 07.05.2009, 08:27   #3
S@fer
Форумчанин
 
Аватар для S@fer
 
Регистрация: 29.01.2009
Сообщений: 411
По умолчанию

наверное так
Код:
if (g0 <> g1) and (g0 <> g2) then
  begin
    for  i:=0 to g6.Lines.Count do
      if g7.Lines.Strings[0] <> g8.Lines.Strings[i] then
      begin
        ...
      end else
      begin
        ...
      end;
  end;
S@fer вне форума Ответить с цитированием
Старый 07.05.2009, 10:18   #4
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Мне кажется вам нужно так:
Код:
var
b: boolean;
begin
 for  i:=0 to g6.Lines.Count do
  if g7.Lines.Strings[0] <> g8.Lines.Strings[i] then 
   b := true 
  else 
   b := false;
 if (g0 <> g1) and (g0 <> g2) and (b  <> true) then
 begin
  ...
 end;
end;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как правильно поставить условие ГОСЕАН Помощь студентам 5 27.04.2009 10:52
Как правельно создать базу учета передвижения документов kazhan БД в Delphi 20 19.01.2009 23:29
Как правельно составить запрос!! Areostar SQL, базы данных 3 16.02.2008 19:49
Подскажите, как поставить 2 ОС Красавчег))) Операционные системы общие вопросы 24 15.01.2008 21:28
Как атрибут поставить delphin100 Общие вопросы Delphi 9 14.01.2008 23:15