VPF::{$IFDEF} TmyFrm=class(TForm1){$ELSE}... глюк! - Форум программистов

Bose

Дата 22.2.2007, 03:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Пришлось тут намедни в целях отладки сделать возможность быстрого изменения порядка наследования. Решил сделать через через директивы. Получилось так:

unit1 - без .dfm-файла

Код


Type

{$IFDEF BASE_ON_DESIGN}
     TwgBaseForm = class(TfrmDesignForm)
{$ELSE}
     TwgBaseForm = class(TForm)
{$ENDIF}
     private
        ... здесь дальнейшее объявление

unit2 - c .dfm-файлом и парой визуальных компонент

Код


type

{$IFDEF BASE_ON_DESIGN}
     TfrmDesignForm = class(TForm)
{$ELSE}
     TfrmDesignForm = class(TwgBaseForm)
{$ENDIF}
        ... здесь дальнейшее объявление

Если в момент компиляции открыт uni2, то компилятор ругается на вторую( $ELSE) строку "expected : but = found". Но, стоит в редакторе Ide закрыть unit2, как всё нормально компилируется.

Кто-нибудь сталкивался с подобным?

И ещё, может быть посоветуете удобную замену директивам условной компиляции?

Заранее спасибо smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Snowy

Дата 22.2.2007, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

А так:

Код


     TfrmDesignForm = class;
{$IFDEF BASE_ON_DESIGN}
     TfrmDesignForm = class(TForm)
{$ELSE}
     TfrmDesignForm = class(TwgBaseForm)
{$ENDIF}

Добавлено @ 12:00
Как вариант, можно сделать 2 inc файла.
В одном
type TCurrForm = TForm;
в другом
type TCurrForm = TwgBaseForm;
и инклюдить тот или другой по условию, а все формы наследовать от TCurrForm;

Bose

Дата 22.2.2007, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Спасибо за идеи smile

Попробовал так:

Код


{$IFDEF BASE_ON_DESIGN}
     TtmpDesignForm = class(TForm);
{$ELSE}
     TtmpDesignForm = class(TwgBaseForm);
{$ENDIF}

  TfrmDesignForm = class(TtmpDesignForm)
  published
    ... здесь дальнейшее объявление

Ошибка пропала smile

Такое ощущение, что компилятору(точнее именно редактору) не нравилось отсутствие запятой в конце объявлений. smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Snowy

Дата 22.2.2007, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

просто бага иде с точкой поиска.
он находил её напрямую, игнорируя секции директив.
а раз так, то игнорировал {$ELSE} и считал, что дальше типа поля идут...
Вобщем бага навигации.

Bose

Дата 22.2.2007, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Цитата(Snowy @ 22.2.2007, 16:18

)

просто бага иде с точкой поиска.он находил её напрямую, игнорируя секции директив.а раз так, то игнорировал {$ELSE} и считал, что дальше типа поля идут...Вобщем бага навигации.

Видимо так.

Забыл упомянуть, в Delphi 6 было дело. smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »