Текущий архив: 2002.06.27;
Скачать: 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 вся ветка
Текущий архив: 2002.06.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
