Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ENDIF expected but $IFEND found / 7 сообщений из 7, страница 1 из 1
21.02.2021, 19:37
    #40047744
registered
registered
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
Программа писалась в Delphi 7, потом переписалась под XE7 (под 7 продолжалась собираться). А теперь в Delphi 7 пишет "$ENDIF expected but $IFEND found" (но ведь так и было, и собиралось в последний раз).

Есть такие конструкции:
Код: pascal
1.
2.
3.
{$IF CompilerVersion >= 24.0 }
  {$LEGACYIFEND ON}
{$IFEND}



Почему всё работало?
Вроде, в старых версиях как раз должно быть $IFEND
Срабатывает только в одном модуле, а в других - принимает $IFEND
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2021, 19:44
    #40047747
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
registered
Программа писалась в Delphi 7, потом переписалась под XE7 (под 7 продолжалась собираться). А теперь в Delphi 7 пишет "$ENDIF expected but $IFEND found" (но ведь так и было, и собиралось в последний раз).

Есть такие конструкции:
Код: pascal
1.
2.
3.
{$IF CompilerVersion >= 24.0 }
  {$LEGACYIFEND ON}
{$IFEND}




Почему всё работало?
Вроде, в старых версиях как раз должно быть $IFEND
Срабатывает только в одном модуле, а в других - принимает $IFEND


насколько я помню, CompilerVersion не было в Delphi 7
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2021, 20:12
    #40047757
registered
registered
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
Глючит не эта конструкция, а такая:

Код: pascal
1.
2.
3.
4.
5.
   {$IFDEF UNICODE}
   FileINI.SaveToFile(FileName,TEncoding.UTF8);
   {$ELSE}
   FileINI.SaveToFile(FileName);
   {$IFEND}



А такая - нет:
Код: pascal
1.
2.
3.
4.
5.
     {$IF CompilerVersion >= 24.0 }
       Vcl.Imaging.PNGImage,
     {$ELSE}
       PNGImage,
     {$IFEND}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2021, 20:14
    #40047758
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
registered,

С IFDEF нельзя IFEND, только ENDIF.

Как и говорит ошибка, внезапно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2021, 13:51
    #40047889
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
До XE4 требовалось такое условие{$IF ..} должно закрываться {$IFEND}

{$IFDEF ..} должно закрываться {$ENDIF}Начиная с XE4, если не была включена директива {$LEGACYIFEND} или опция Setting the Require $IF to be terminated by $IFEND {$IF ...} стало возможным закрывать как {$IFEND} так и {$ENDIF}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2021, 02:39
    #40048057
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
_Vasilisk_,
Ненене... у него там своя магия, надо чтоб через ж писалось и работало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2021, 20:57
    #40051342
registered
registered
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ENDIF expected but $IFEND found
У кого?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ENDIF expected but $IFEND found / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 447ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2037543]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 161ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 206ms
total:  447ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]