将类从C++转换为Delphi

Question

我正在尝试将C++项目转换为Delphi,但我不知道如何转换这两个类:

class CData;
class CContext;

class CData
{
public:
    CContext* Data;
};

class CContext
{
public:
    char Unk[2240];
    DWORD data1;
    DWORD data2;
    DWORD data3;
};

用法:

CData* Data = (CData*)(0x00112233);

//This code obtain the bytes in memory of the address "0x00112233" based on the sizes specified at CContext class

如果有人知道,请帮助我.

谢谢.

Answer 1

这个类只是一个简单的复合结构.这是德尔福的一个记录:

type
  TData = record
    unk: array [0..2240-1] of AnsiChar;
    data1, data2, data3: DWORD;
  end;

您的上下文类型只是指向它的指针:

type
  TContext =^TData;

在C代码中,这个指针包含在一个对我来说有点无意义的类中.

声明一个变量,它是指向TContext的指针:

var
  context: ^TContext;

像这样分配:

context := Pointer($00112233);