Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
25.03.2008, 15:28
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Manoff,
Delphi -> Help -> Windows SDK
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
25.03.2008, 18:55
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Manoff
А по ВинАпи толковый справочник(желательно с примерами) у кого-нибудь есть , а то
нашёл пару штук , половины функций в них нет  . http://www.winasm.net/index.php?ind=downloads&op=entry_view&iden=23
|
|
|
|
25.03.2008, 23:23
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
А по ВинАпи толковый справочник(желательно с примерами) у кого-нибудь есть , а то
нашёл пару штук , половины функций в них нет .
_http://samouchka.net/engine/download.php?id=367
Очень не плохой справочник...
|
|
|
|
26.03.2008, 17:04
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
А вот и у меня вопрос возник  Это конечно не критично, но всё же:
Как получить указатель на функцию из стандартных модулей, например, на функцию sin?
Я делал так:
Код:
type
num = Extended;
TFunc = function(x: num):num;
var
p: TFunc;
......
function sinus(x: num):num;
begin
result := sin(x);
end;
......
p := @sinus;
А хочется чего-нибудь типа
,но так оно не работает.
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
26.03.2008, 18:09
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Я вопроса не понял |
|
|
|
26.03.2008, 18:50
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Коротко: хочу получить указатель на функцию sin
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
26.03.2008, 19:08
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
{ Это простой пример, определяющий массив указателей на функции }
interface
type
{ определяем Procs как функцию }
Procs = function(var ProcNum: LongInt): LongInt;
var
{ объявляем массив указателей на функции }
ProcTable: array[1..5] of Procs;
{ определения интерфейсов функций }
function Proc1(var MyVal: LongInt): LongInt; far;
function Proc2(var MyVal: LongInt): LongInt; far;
function Proc3(var MyVal: LongInt): LongInt; far;
function Proc4(var MyVal: LongInt): LongInt; far;
function Proc5(var MyVal: LongInt): LongInt; far;
Ну или посмотри здесь
_http://www.soft32.ru/delphi.shtml?topic=syntax&title=function_pointer |
|
|
|
26.03.2008, 20:46
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от De-visible
{ Это простой пример, определяющий массив указателей на функции }
interface
type
{ определяем Procs как функцию }
Procs = function(var ProcNum: LongInt): LongInt;
var
{ объявляем массив указателей на функции }
ProcTable: array[1..5] of Procs;
{ определения интерфейсов функций }
function Proc1(var MyVal: LongInt): LongInt; far;
function Proc2(var MyVal: LongInt): LongInt; far;
function Proc3(var MyVal: LongInt): LongInt; far;
function Proc4(var MyVal: LongInt): LongInt; far;
function Proc5(var MyVal: LongInt): LongInt; far;
Ну или посмотри здесь
_http://www.soft32.ru/delphi.shtml?topic=syntax&title=function_pointer В том-то и дело, что мне нужно обратиться не к моей собственной функции, а к стандартной типа sin, cos, abs и т.п. Так, как ты пишешь, я и сделал (см. приведённый мной пример), но мне интересно, как сделать это непосредственно...
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
26.03.2008, 21:10
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от desTiny
А вот и у меня вопрос возник Это конечно не критично, но всё же:
Как получить указатель на функцию из стандартных модулей, например, на функцию sin?
Я делал так:
Код:
type
num = Extended;
TFunc = function(x: num):num;
var
p: TFunc;
......
function sinus(x: num):num;
begin
result := sin(x);
end;
......
p := @sinus;
А хочется чего-нибудь типа
,но так оно не работает. Извини, но я больше не знаю как
А что так не устраивает???
Последний раз редактировалось De-visible; 26.03.2008 в 22:14..
|
|
|
|
26.03.2008, 21:16
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Просто когда много таких вызовов, очень не хочется для каждой функции создавать "переадресацию"... Так-то я и сделал, а теперь оптимайзю
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
