Как в процедуру передать имя функции?

← →
vishnia (2007-09-03 15:36) [0]

Вопрос сформулирован в теме.

← →
Сергей М. © (2007-09-03 15:38) [1]

Например, так

MyProcedure("Имя функции");

← →
Вася Правильный (2007-09-03 15:41) [2]

а смысл?
чтоб вызвать?
тогда передавай указатель

← →
Dib@zol © (2007-09-03 15:45) [3]

Что ты конкретно хочешь сделать? Уточни.

← →
Anatoly Podgoretsky © (2007-09-03 16:31) [4]

> vishnia (03.09.2007 15:36:00) [0]

А зачем?
Имя функции это текст, а текст передается в апострофах.

← →
evvcom © (2007-09-04 11:59) [5]

Странно, почему этот вопрос еще в основной :?)

← →
Anatoly Podgoretsky © (2007-09-04 12:02) [6]

Пусть полежит, или появится автор или оно само уйдет в архив.
Пока неясна подоплека.

← →
{RASkov} © (2007-09-04 13:38) [7]

type TFunc = function;

function BlaFunc: String;
begin
Result:="Bla";
end;

function OopsFunc: String;
begin
Result:="Oops...";
end;

procedure ShowMess5Raz(F: TFunc);
var N: Integer;
begin
for N:= 1 to 5 do ShowMessage(F);
end;
.....
ShowMess5Raz(BlaFunc);
ShowMess5Raz(OopsFunc);

← →
Jeer © (2007-09-04 13:48) [8]

6-е и часть 7-го чувств подсказывают мне, что нужно что-то вроде нижеследующего, о чем выше упомянуто в [2]:

type
TMyFunc = function(value: double): double;

function DoIt(x: double): double;
begin
Result := x;
end;

function NotDoIt(x: double): double;
begin
Result := 0.0;
end;

procedure MyProc(Func: TMyFunc);
var x: double;
begin
x := Func(1.2345);
end;

//
MyProc(@DoIt);
MyProc(@NotDoIt);

P.S.
Возможны варианты с явным pointer-ом: MyProc(pFunc: Pointer)

Все гадание, если автор не появится до завтра, то ветку закрою.

> app © (04.09.07 14:05) [9]

Спишу предлажить вориант:

function MyFunc1: double;
begin
Result := Random;
end;

function MyFunc2: double;
begin
Result := 2*Random;
end;

function MyFunc3: double;
begin
Result := 3*Random;
end;

procedure MyProc(sFunc: string);
begin
if sFunc = "MyFunc1" then..
if sFunc = "MyFunc2" then..
if sFunc = "MyFunc3" then..
//...
end;

class function MethodAddress(const Name: ShortString): Pointer?

Как в процедуру передать имя функции? Найти похожие ветки