Foros Club Delphi - Ayuden a convertir este codigo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuden a convertir este codigo (https://www.clubdelphi.com/foros/showthread.php?t=94481)

Ayuden a convertir este codigo

Necesito q alguien que tenga mas experiencia pueda convertir este codigo de C++ a delphi

Código:

        typedef DWORD(__thiscall *oGetLocal)(void *ThisPtr);

        typedef DWORD(__thiscall *oGetIndex)(void *ThisPtr, BYTE bIndex);

        typedef DWORD(__cdecl *oGetInfo)(BYTE bIndex);



     oGetLocal GetLocal = (oGetLocal)(0x14E8FF);

     oGetIndex GetIndex = (oGetIndex)(0x14E800);

     oGetInfo GetInfo= (oGetInfo)(0xEA130);



     void *PThis = (void *)(pTable + 0xEC);



for (BYTE i = 0; i < 10; i++)

{

CLocalPos *pLocal = (CLocalPos *)GetIndex(pThis, i);

CInfo *pInfo = (CInfo *)GetInfo(pLocal->Index);



if (pLocal == 0 || pInfo== 0 )

continue;





}

Ojala puedan ayudarme :o:o

Es mucho mejor que digas que quieres concretamente y asi habra una solucion en Delphi idiomatica.

Aparte de que ese código está fatalmente mal escrito. No ya que comparar punteros con valores enteros debería estar castigado con cien latigazos por cada vez que se haga, sino que encima usa direccionamiento directo (más vale que sea para un microcontrolador).