在VC中的写法:
1.申明一个结构:
struct Result
{ int nPack;
int Start_Pos;
int Stop_Pos;
char type[20];
float AHR;
struct Result * next;};
2:申明一个函数:
bool _stdcall Diag_ECG(char name[20],struct Result* head)
返回struct指针。
==============================================================
现在想在Delphi中调用这个函数,返回结构体的指针,但是老是抱错。
申明结构体:
PDiagList = ^DiagList;
DiagList = Record
Pack : integer;
Start_pos : integer;
Stop_pos : integer;
DiagMessage : Array[0..19] of char;
AveHR : single;
NextPack : PDiagList;
end;函数申明:
function(Name : pchar ; var ResultDiag : PDiagList): Boolean;请朋友们纠正。
谢谢!!!
1.申明一个结构:
struct Result
{ int nPack;
int Start_Pos;
int Stop_Pos;
char type[20];
float AHR;
struct Result * next;};
2:申明一个函数:
bool _stdcall Diag_ECG(char name[20],struct Result* head)
返回struct指针。
==============================================================
现在想在Delphi中调用这个函数,返回结构体的指针,但是老是抱错。
申明结构体:
PDiagList = ^DiagList;
DiagList = Record
Pack : integer;
Start_pos : integer;
Stop_pos : integer;
DiagMessage : Array[0..19] of char;
AveHR : single;
NextPack : PDiagList;
end;函数申明:
function(Name : pchar ; var ResultDiag : PDiagList): Boolean;请朋友们纠正。
谢谢!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货