[求助]各位gg帮小妹一下:关于(delphi)字符指针的问题
讨厌老师的作业。
要求:
函数名称:int _stdcall WimDev_GetVerNo(char *VerNo)
说明:获取版本号;
参数:VerNo 产品号 采用“X.X.X”格式;
返回值:0 成功;-1 失败;
我写的函数如下:
Function WimDev_GetVerNo(var VerNo:array of char):integer;stdcall;export;
{
功能:获取软件版本号
参数:
返回: >=0 成功
-1 失败
VerNo:版本号
}
var
SBuf: string[15];
begin
try
SBuf:='1.06.04';
strpcopy(VerNo,SBuf);
WimDev_GetVerNo:=0;
except
WimDev_GetVerNo:=-1;
exit;
end;
end;
为啥老是没法显示,急死了,请gg们帮个忙,先谢了!!
[此贴子已经被作者于2007-10-23 21:21:09编辑过]