> Thanks for your help,
>
> 1. that means this command
> reg_drq_block_call_back = 0;
> is in Pascal
> reg_drq_block_call_back := nil;
>
> 2. if ( ! reg_drq_block_call_back )
> {
> ...
> }
> is in Pascal
> if reg_drq_block_call_back = nil then
> begin
> ...
> end;
>
> 3. if ( reg_drq_block_call_back )
> {
> (* reg_drq_block_call_back) ( & reg_cmd_info );
> }
> is in Pascal
> if reg_drq_block_call_back <> nil then
> begin
> reg_drq_block_call_back(Addr(reg_cmd_info));
> or
> reg_drq_block_call_back(@reg_cmd_info);
> end;
>
> Is this correct ?
Yes
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
