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

Передача процедуры...   Найти похожие ветки 

← →
Landgraph   (2002-04-25 23:17) [0]

Как в функцию/процедуру передать другую функцию/процедуру для дальнейшего ее использования(запуска)?
Пробовал function asd(procedure(a:string)): byte; - матюкается на чем свет стоит =( Помогите, Оч. нада...

---

← →
Doom ©   (2002-04-25 23:25) [1]

Передавай указатель

---

← →
Slym   (2002-04-26 07:21) [2]

type
TMyProc:procedure(a:string);

function asd(proc:TMyProc):byte;

---

← →
Landgraph   (2002-04-27 20:21) [3]

2Doom: А что потом делать с указателем?
2Slym: А как использовать TMyProc? Я что-то на подобии пробовал, а потом как присвоить TMyProc процедуру? Пишет неправильный тип TMyProc и procedure =(

---

← →
Cobalt ©   (2002-04-28 23:36) [4]

procedure TForm1.FormCreate(Sender: TObject);
type
TMyProc = procedure(a:string);
function asd(proc:TMyProc):byte;
begin
proc("This is a string");
Result:=1;
end;
procedure MyProc1 (a:string);
begin
///
end;
begin
asd(@MyProc1);
end;

>А что потом делать с указателем?
А потом делаешь преобразование указателя к процедуре/функции:
function asd(p:pointer):byte;
begin
TMyProc(p)("This is a string");
Result:=1;
end;

---

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

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



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