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

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

Избранное

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


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

Вопрос №

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

Помощь

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


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

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

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

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

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

 
   
С Л С

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

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

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

Квинтана

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

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

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

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

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 10:51 Gin Beginner
 
 
Во Флориде и в Королевстве сейчас  11:04[Войти] | [Зарегистрироваться]
Ответ на вопрос № 56520

30-10-2007 05:13
Привет, у меня есть такой вопросик:


type

  TMax = procedure(P:PChar);

  procedure Max(T:TMax)
  begin
    T('Hello');
  end;

  procedure Hello;

  procedure T(P:PChar);
  begin
  ShowMessage(P);
  end;

  begin

  Max(T); // но так нельзя сделать

  end


Как можно обмануть Delphi

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

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

Ответы:


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

31-10-2007 02:27 | Сообщение от автора вопроса
Спасибо за помощь!

30-10-2007 09:42 | Комментарий к предыдущим ответам
Да, он действительно работает.
Из серии "аномалии Delphi или почему это работает" :)

Спасибо Антону Григорьеву за пояснение.

30-10-2007 08:57
В 7-ке работает такой вот "грязный" прием:

Да, он действительно работает. Как выяснилось, лишние данные, которые служат для доступа к родительским локальным переменным, удаляются из стека не эпилогом локальной функции, а почему-то вставляется после команды call в месте вызова. Поэтому баланс стека в вашем варианте оказывается соблюдён, и он работает (если локальная процедура, конечно, не обращается к родительским локальным переменным).

30-10-2007 08:32 | Комментарий к предыдущим ответам
сильно извращаться, то можно сделать многое
Это да :)
Но до таких извращений лучше не доводить :) ИМХО.

30-10-2007 08:18 | Комментарий к предыдущим ответам
А... понял :)

В 7-ке работает такой вот "грязный" прием:
Как то мы с Jack of Shadows на Базарной площади обсуждали, можно ли в Delphi так же легко передавать указатели на функции, как в функциональных языках. Пришли к выводу, что если сильно извращаться, то можно сделать многое. Но не все.

30-10-2007 08:15
В 7-ке работает такой вот "грязный" прием:


procedure Hello;
  procedure T(P:PChar);
  begin
  ShowMessage(P);
  end;
begin
  Max(TMax(@T)); // <- вот так вот можно
end;


30-10-2007 07:57
Не думаю, что это возможно. Локальные процедуры вызываются по-особому, потому что им ещё через стек передаётся информация о том, где лежат локальные переменные родительской процедуры, поэтому в принципе невозможно вызывать локальную и глобальную процедуры одним и тем же кодом.

30-10-2007 07:53 | Замечание модератора
panda:

Присмотритесь внимательнее, это два разных вопроса.

30-10-2007 05:29 | Вопрос к автору: запрос дополнительной информации
»вопрос КС №56522« Ваш? Ну и зачем задавать по два одинаковых вопроса?

Добавьте свое 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» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

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