Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  23:16[Войти] | [Зарегистрироваться]
Ответ на вопрос № 58424

12-01-2008 15:44
Приветствую всех жителей Королевства!

У меня вопрос по синтаксису, что-то не могу разобраться... Почему такой код нормально компилируется:

procedure TForm1.FormCreate(Sender: TObject);
var
  Method: TNotifyEvent;
begin
  Method:=FormCreate;
  if @OnCreate = @Method then beep;
end;

А такой (по сути - то же самое) - нет.

procedure TForm1.FormCreate(Sender: TObject);
begin
  if @OnCreate = @FormCreate then beep;
end;

PS: Если во втором примере @FormCreate заменить на @TForm1.FormCreate, компилятор его проглотит, но меня явное указание класса не устраивает. В общем случае, вместо метода FormCreate хотелось бы использовать виртуальный метод, адрес которого будет зависеть от Self и на момент компиляции не известен.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

13-01-2008 05:10
>>>Как сделать чтобы работало вопрос не стоит

Честно говоря, из первоначальной формулировки вопроса это не было очевидно. Последняя фраза в вопросе воспринимается как раз наоборот. Хотя конечно возможно, что это только мне так показалось.
 NS

13-01-2008 05:07
2 Ins

Может я и ошибаюсь, но вряд-ли Вам кто-нибудь ответит - просто потому, что на этот сайт вряд-ли заходят авторы дельфийского компилятора:)) В принципе понятно, что методы - часть класса, но почему в данном случае компилятор не хочет делать неявное преобразование объектной ссылке в указатель на ее класс( а он это делает при любом обычном вызове метода объекта), я не знаю.

Хотя может я и ошибаюсь и кто-нибудь все это разъяснит, тогда мне тоже будет интересно почитать.
 NS

13-01-2008 02:55 | Сообщение от автора вопроса
NS

Да это понятно... Как сделать чтобы работало вопрос не стоит. Вопрос в том, "что во втором примере синтаксически неправильно?" Может на раздел справки кто носом ткнет или так объяснит, так как я что-то не понимаю...

12-01-2008 23:17

В общем случае, вместо метода FormCreate хотелось бы использовать виртуальный метод, адрес которого будет зависеть от Self и на момент компиляции не известен.


var
  Method: TNotifyEvent;

  Method:= FormCreate;
  if @OnCreate = @Method then beep;

 NS

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Жили у бабуси два веселых гуся. Один белый, другой КАКОЙ?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования