Вызов процедуры, имя которой содержится в переменной

← →
dm37 (2003-03-21 09:52) [0]

Не получается, подскажите что делаю не так, спасибо:
var
str: TStringList;
myFunc: procedure;
aaa: procedure;
S: string;
begin
S:="Proc1";
str.Create;
str.AddObject("Proc1",@aaa);
@myFunc:=str.Objects[str.IndexOf(S)];;
myFunc;
end;

← →
REA © (2003-03-21 09:55) [1]

str.Create; -> str := TStringList.Create
aaa никуда не указывает

А зачем делать интерпретатор из компилятора?

← →
dm37 (2003-03-21 10:50) [2]

Нужно перед вызовом процедур проверить код ошибки, вот и хочу это сделать в виде одной процедуры, а не писать проверку для каждой.
Сделал немного по другому:

type
Proc = procedure;

procedure CheckError(name: proc);
begin
if CurrError<>0 then name;
end;

Вызов процедуры, имя которой содержится в переменной Найти похожие ветки