Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.17;
Скачать: CL | DM;

Вниз

Вопрос по $IFDEF   Найти похожие ветки 

 
Maxim2030   (2003-03-05 10:27) [0]

Почему не работает код :

{$DEFINE XXX}

type
{$IFDEF XXX}
TMyClass = class(TObject)
{$ELSE}
TMyClass = class(TComponent)
{$ENDIF}

причем какая-то странаая ошибка выскакивает...


 
Юрий Зотов ©   (2003-03-05 10:38) [1]

Ошибка не здесь. А что мешало привести ее текст?


 
Maxim2030   (2003-03-05 10:42) [2]

Expected ":" but "=" found.

выдается в виде диалогового окна, при начале компиляции и при F1 в любом месте модуля :(


 
MBo ©   (2003-03-05 12:46) [3]

В каком-то месте присвоение неправильно написано или (скорее)
описание переменной (i=integer)


 
Игорь Шевченко ©   (2003-03-05 13:14) [4]

Побольше кода, хорошего и разного :-)


 
Юрий Зотов ©   (2003-03-05 13:30) [5]

> Maxim2030 (05.03.03 10:42)

Ну и при чем здесь $DEFINE? Обычная синтаксическая ошибка. Что мешало ткнуть по сообщению мышкой и внимательно просмотреть на код программы?


 
Maxim2030   (2003-03-05 14:16) [6]

разобрался.

Исходный код выглядел так:
{$R *.DFM}
...

{$IFDEF CONFIG}
TTemplateForm = class(TForm2)
{$ELSE}
TTemplateForm = class(TForm)
{$ENDIF}

падала из-за DFM

А так работает
{$IFDEF CONFIG}
TCustomTemplateForm = class(TForm2);
{$ELSE}
TCustomTemplateForm = class(TForm);
{$ENDIF}

TTemplateForm = class(TCustomTemplateForm)




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

Текущий архив: 2003.03.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-53956
Marsivan
2003-02-26 16:18
2003.03.17
Access-Delphi


6-54144
diks
2003-01-29 11:28
2003.03.17
Отключение клавишь на WebBrowser


1-54109
kofman
2003-03-04 23:14
2003.03.17
Как загрузить картинку в TShape?


3-53894
Destroyer
2003-02-25 08:51
2003.03.17
Автоинкрементное поле


3-53886
Roma111111
2003-02-20 14:23
2003.03.17
Какие записи блокированы?