Hi, i'm trying to port some C code into Pascal , i did some part .

markieren

Code:

struct DLL{
       char* Dllname;
       dword imagebase;
       dword size;
       dword vAddr;
};

struct API{
       char* ApiName;
       DLL*  libName;
       dword args;
       dword addr;
      int (*Start_func)(Thread*,dword*);
};

so i ported it in this way :

zusammenfalten · markieren

Delphi-Quellcode:

type
     PDll = ^TDll;
     TDLL = record
     Dllname: Pchar;
     imagebase: dword;
     size: dword;
     vAddr: dword;
end;
    API = record
    Apiname: PChar;
    libName: PDLL;
    args: dword;
    addr: dword;
   //*** But the problem is here
   int (*Start_func)(Thread*,dword*);
   //*** how it can be done ?

How this can be done inside a Structure

markieren

Code:

int (*Start_func)(Thread*,dword*);

many thanks

Try this

markieren

Delphi-Quellcode:

Type
  TMyFunction= Function (aThread : TThread; Var dwordParam : DWORD) : Int;

  TMyRecord = Record
  ... myFunc : TMyFunction;
  End

many thanks Furtbichler ,
what about this :

markieren

Code:

struct image_resource_directory_entry
{
  union
  {
    struct
    {
      unsigned long name_offset : 31;
      unsigned long name_is_string : 1;
    };
    unsigned long name;
    unsigned short id;
  };
  union
  {
    unsigned long offset_to_data;
    struct
    {
      unsigned long offset_to_directory : 31;
      unsigned long data_is_directory : 1;
    };
  };
};

markieren

Delphi-Quellcode:

Type
  TMyUnion = Record
    case boolean of
       false : (Foobar : Word);
       true : (Foo,Bar : Char);
   end;

Foobar and Foo, Bar have the same physical memory space, i.e. if you modify e.g. Foobar, Foo and Bar will also be modified.

Adapt this idea to your challenge.