怎么样给类型中的过程赋值

Question

Type
TOnAudit = Procedure(Sender: TObject) TTest = Packed Record
OnAudit: TOnAudit;
endProcedure Button1OnClick(Sender: TObject);
var
Test: TTest;
begin
Test.OnAudit := ?????? //怎样对过程进行赋值.
end;

Answer 1

Type
TOnAudit = Procedure(Sender: TObject); TTest = Packed Record
OnAudit: TOnAudit;//真看不明白，楼主你这是定义什么呢？
endprocedure TestProc(sender:tobject);
begin
showmessage('test');
end;Procedure Button1OnClick(Sender: TObject);
var
Test: TTest;
begin
Test.OnAudit := testproc; //怎样对过程进行赋值.
end;

Answer 2

是这样的Function (Var DLLInfo: TDLLInfo): ResultInfo; 定义了一个DLL的调用函数DLLInfo传相关参数,现在这里面我需要加一个审核事件进去,在DLL进行判断有没有事先定义审核事件!所以需要传一个过程进去

Answer 3

是这样的Function (Var DLLInfo: TDLLInfo): ResultInfo; 定义了一个DLL的调用函数DLLInfo传相关参数,现在这里面我需要加一个审核事件进去,在DLL进行判断有没有事先定义审核事件!所以需要传一个过程进去
还是没看明白。

Answer 4

Type
    TOnAudit = Function(Sender: TObject): Boolean;
    TDLLInfo = Record;
        OnAudit: TOnAudit
end;这时给DLL传 OnAudit 应该怎么来传?

Answer 5

是不是那个DLL函数支持回调你指定的一个函数的?

Answer 6

不是,其实也很好理解,原来我给DLLInfo 里面是塞PChar, Integer, Boolean...类型的,现在我需要把 过程 或者事件 塞进去