Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c