delphi与java 类型转换_从C到Delphi的类型转换

我怎么把它翻译成Delphi？

typedef struct ext2dirent {

EXT2_DIR_ENTRY *next;

EXT2_DIR_ENTRY *dirbuf;

Ext2File *parent;

lloff_t read_bytes; // Bytes already read

lloff_t next_block;

} EXT2DIRENT;

typedef struct tagEXT2_DIR_ENTRY {

uint32_t inode; /* Inode number */

uint16_t rec_len; /* Directory entry length */

uint8_t name_len; /* Name length */

uint8_t filetype; /* File type */

char name[EXT2_NAME_LEN]; /* File name */

} __attribute__ ((__packed__)) EXT2_DIR_ENTRY;

EXT2DIRENT *dirent;

int blocksize = 4096;

dirent->dirbuf = (EXT2_DIR_ENTRY *) new char[blocksize]; //

我想做这样的事情;

Type

PExt2_Dir_Entry = ^Ext2_Dir_Entry;

Ext2_Dir_Entry = packed Record

inode: Cardinal;

rec_len : Word;

name_len : Byte;

filetype : Byte;

name : Array[0..EXT2_NAME_LEN-1] of AnsiChar;

End;

var

temp : array of AnsiChar;

if dir = NIL then

Result := nil;

SetLength(temp,self.block_size-1);

dir.dirbuf := PExt2_Dir_Entry(@temp);

但是我没有得到 dir.dirbuf 中我期望的结果 . 我不明白 new char 功能在C中做了什么 . 但我认为这可能与我的失败有关 .