| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача текста функции как параметра функции. Проблема... [D7]

ForumReader ©   (2011-08-12 14:33:00) 

Приветствую.
Использую Дельфи 2007, в одном из проектов приведен код, который у меня упорно не компилируется, хотя на форуме том об этих вещах говорят как о само собой разумеющемся :\

Это у меня Дельфи старая или хитрость есть какая либо?

procedure actDomExecute;
 var
   q: ICefDomNode;
 begin
   crm.Browser.MainFrame.VisitDomProc(
     procedure (const doc: ICefDomDocument)
     var
       q: ICefDomNode;
     begin
       q := doc.GetElementById('q');
       if Assigned(q) then q.SetElementAttribute('value', 'Hello, world');
     end
   );
 end;

Процедура объявлена как
procedure VisitDomProc(const proc: TCefFastDomVisitorProc);

А TCefFastDomVisitorProc вот так:
TCefFastDomVisitorProc = {$IFDEF DELPHI12_UP}reference to{$ENDIF} procedure(const document: ICefDomDocument);

---

_Юрий   (2011-08-13 12:03:00) [1]

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

procedure DoWork (const doc: ICefDomDocument);
var
  q: ICefDomNode;
begin
  q := doc.GetElementById('q');
  if Assigned(q) then q.SetElementAttribute('value', 'Hello, world');
end;

procedure actDomExecute;
var
  q: ICefDomNode;
begin
   crm.Browser.MainFrame.VisitDomProc(DoWork);

---

Anatoly Podgoretsky   (2011-08-12 19:18:00) [2]

> ForumReader  (12.08.2011 14:33:00)  [0]

Что так и говорит "Я не компилируюсь, это само собой разумеющее"

---

Cobalt   (2011-08-12 19:01:00) [3]

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

---

ForumReader_   (2011-08-12 18:52:00) [4]

> >Это у меня Дельфи старая
> да
> анонимные функции введены в Д2009

Большое спасибо за разъяснение. Грустно. Вот как эту жесть портировать в Дельфи 2007? :)

---

MBo   (2011-08-12 15:49:00) [5]

>Это у меня Дельфи старая
да
анонимные функции введены в Д2009

---

Cobalt   (2011-08-12 15:06:00) [6]

а в другом проекте в 2007-ом подобный код компилируется?

---

oldman   (2011-08-12 14:47:00) [7]

http://www.codenet.ru/progr/delphi/errors.php

---

ForumReader   (2011-08-12 14:35:00) [8]

Да, еще - компилятор выдает:

Expression expected but 'PROCEDURE' found (E2029)

---

Наверх