麻烦哪位兄弟有空 简单C++代码转到delphi. ( 积分: 80 )

NODE* lstInit(struct sHost host)
{
NODE* first=NULL;
struct sHost* Host;
lstInited = 1;
first=(NODE*) malloc(sizeof(NODE));
Host = (struct sHost*)malloc(sizeof(struct sHost));
if(Host==NULL || first==NULL)
MemoryCorruptedHandler("lstInit"
thrdBlock(BLOCKTHRDHST);
first->field = (void*)Host;
memcpy(Host ,&host,sizeof(struct sHost));
first->next = NULL;
thrdUnBlock(BLOCKTHRDHST);
return first;
}

NODE* lstInit(struct sHost host)
{
NODE* first=NULL;
struct sHost* Host;
lstInited = 1;
first=(NODE*) malloc(sizeof(NODE));
Host = (struct sHost*)malloc(sizeof(struct sHost));
if(Host==NULL || first==NULL)
MemoryCorruptedHandler("lstInit"
thrdBlock(BLOCKTHRDHST);
first->field = (void*)Host;
memcpy(Host ,&host,sizeof(struct sHost));
first->next = NULL;
thrdUnBlock(BLOCKTHRDHST);
return first;
}

好,帮顶



--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/