Hallo,

i know this is not exactly question to this maillist but maybe somebody could help me how can i convert only the following definition of "reg_drq_block_call_back" into FPC Pascal notation:

void ( * reg_drq_block_call_back ) ( struct REG_CMD_INFO * );

where definition is

struct REG_CMD_INFO
{

   unsigned char cmd;
   ... etc.

} ;

struct REG_CMD_INFO reg_cmd_info;

("struct" is simply converted to "record", that is not the problem)

Lubomir Cabla
http://www.freewebs.com/hdat2/

Pascal style:

type
  REG_CMD_INFO = record
    cmd : byte;
  end;
  reg_drq_block_call_back = procedure(var r:REG_CMD_INFO);

or more close to C style with pointers:

type
  REG_CMD_INFO = record
    cmd : byte;
  end;
  REG_CMD_INFO = ^REG_CMD_INFO;
  reg_drq_block_call_back = procedure(pr:PREG_CMD_INFO);

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 ?

Lubomir Cabla

Yes