Re: кривая функция и var
От: Sergei  
Дата: 20.11.02 17:36
Оценка:
Здравствуйте, Dmitry_mit, Вы писали:

DM>Скажем есть процедура:


DM>procedure Test(s:WideString;int:integer;var TE:TTestEvent); stdcall; export;


DM>где TTestEvent — некоторая функция:

DM>TTestEvent=procedure(text:WideString) of object; stdcall;

DM>Так вот интересует, что передается в ф-ию Test (последний параметр), т.е. там написано — "var TE:TTestEvent" , что обозначает "var"? т.е. передается указатель на функцию типа TTestEvent?

Передаётся ссылка на функцию.

DM>Если можно, покажите как будет выглядеть эта функция на C++


typedef void __fastcall (__closure *TTestEvent)(WideString text);

extern "C" __declspec(dllexport) void _stdcall Test(WideString s,TTestEvent& TE)
{
}
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.