Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c