Помогите перевести код из Си в Делфи

← →
Amid (2009-07-20 14:56) [0]

Помогите перевести код из Си в Делфи

Есть код:

struct ToSend
{
WORD prot;
WORD datal;
BYTE data[1];
};

......

ToSend *data = (ToSend *) new BYTE[512];
data->prot = 0;
data->datal = 0;

......

а как будет в Делфи ?

← →
clickmaker © (2009-07-20 15:21) [1]

type
ToSend = packed record
prot: Word;
datal: Word;
data: ^Byte;
end;
PToSend = ^ToSend;

var
data: PToSend;

data := PToSend(AllocMem(512));
data.prot = 0;
data.datal = 0;
...

← →
Amid (2009-07-20 15:27) [2]

спосибо !!!!!

Помогите перевести код из Си в Делфи Найти похожие ветки