Тип, который должен содержать указатель на функцию с одним параметром. Попробовал сделать так:

Код

... type  PFunct1 = ^TFunct1;  TFunct1 = function(p1: Real): Real; stdcall;  TFunction = record    ...    Funct: PFunct1;    ...  end; ... procedure ргос; var  f: TFunction; begin  ...  {1}f.Funct := @Cos; // требует аргументы к косинусу  {2}ShowMessage(FloatToStr(f.Funct^(90.0))); { когда ставлю вместо кос собственную функцию на строчке 1 возникает ЭксесВиолэйшэн }  ... end; ...

Может здесь, хоть 10% правильны?
ПАМАГИТЕ, ЛЮДИ ДОБРЫЕ!

Это сообщение отредактировал(а) decoder - 3.9.2004, 16:13

Цитата

f.Funct := @Cos;

А разве Cos работает с целыми числами? Мне казалось, что с extended или real...

Ща попробую...
Добавлено @ 15:35
функция перевода Рил в Стринг?
Добавлено @ 15:41
Всё равно требует аргументы...

Код

type Tf = function(x : real):real of object;

Код

function a(a : real):real; begin result:=cos(a); end; procedure ргос; var f: Tf; begin @f:=@a; showmessage(FloatToStr(f(2))); end;

Так работает... напрямую адрес косинуса брать отказывается. видимо это встроенная функция (у неё нет описания, есть какой-то абстрактный _COS ), и, может, у неё нет адреса.

Это сообщение отредактировал(а) Illusion Dolphin - 3.9.2004, 15:57

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

Цитата

Кроме того, нужна произвольная функция

Что имеется в виду? ты же всё равно будешь там писать или cos или sin, а не вводить с клавы в рунтайм...
В моём коде функция а имеет такие же параметры, как и cos, дублирует её. Если брать @a, то всё в норме, если @cos, то проблема... Я имею в виду, что, вероятно, адрес у этих функций вообще отсутствует (это встроенные в компилятор функции, если удерживать ctrl и кликнуть по тому же cos, то листинга не получишь 8( )

Цитата

Должно быть поле в структуре

f.Funct := @Cos;
замени на
f.Funct := @a;
где а - функция как у меня в коде...

Это не обязательно Sin || Cos - это любая функция, хоть встроенная, хоть нет, а то, что ты написал... Хочешь сказать, что надо переписать все функции как функция "a"(
FUNCTION nSin(p1: Real): Real;
begin
Result := Sin(p1);
end;
FUNCTION nCos(p1: Real): Real;
begin
Result := Cos(p1);
end;
...
FUNCTION nSomeFunction(p1: Real): Real;
begin
Result := SomeFunction(p1);
end;
). По-моему это глупо... Но если нет другого способа, то... 2Олл плиз найдите другой способ!

ЗЫ

Цитата(Illusion @ 3.9.2004, 16:23)

это встроенные в компилятор функции, если удерживать ctrl и кликнуть по тому же cos, то листинга не получишь

Знаю - не тупой

Добавлено @ 16:49
Оффтоп
А чё у меня ошибки на странице вылазят? Можт сообщить кому надо?

Попробовал сделать, как ты, Illusion Dolphin, посоветовал:
(см. комментарии)

Код

... type TFunct1 = function(p1: Real): Real of Object; stdcall; TFunction = record   ...   Funct: TFunct1;   ... end; ... function nCos(p1: Real): Real; begin  Result := Cos(p1); end; procedure ргос; var f: TFunction; begin ... {1}@f.Funct := @a; // проходит нормально {2}ShowMessage(FloatToStr(f.Funct(90.0))); { матерится ExternalException'ами } ... end; ...

Это сообщение отредактировал(а) decoder - 3.9.2004, 17:48

Цитата

{1}@f.Funct := @a; // проходит нормально {2}ShowMessage(FloatToStr(f.Funct(90.0))); { матерится ExternalException'ами }

А у тебя f.Funct это уже указатель, надо

Код

f.Funct := @a;

Заработало! (с)Матроскин
Эх, семь сообщений...