重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
ref String 先要知道是什么类型,再按delphi的规则去声明这个函数
站在用户的角度思考问题,与客户深入沟通,找到都匀网站设计与都匀网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站设计、成都做网站、企业官网、英文网站、手机端网站、网站推广、主机域名、雅安服务器托管、企业邮箱。业务覆盖都匀地区。
int EHRSyncTransport ( String eventid, String body, ref String message, ref String result)//
EHRSyncTransport(eventid: String ; body:String;message:ref String ;result:ref String ):integer;
int inthestr(char *s,char ch)
{
while(*s!='\0'){
if(*s==ch)
return 1;
s++;
}
return 0;
}
用易语言来说,这个是delphi的子程序。在易语言里和 取十六进制文本() 这个的意思是一样的。最后得到的结果也是一样。。不用转换,你直接在易语言里用 取十六进制文本() 这个就可以了。
在delphi里调用你要转换的那个子程序:
EDIT1.Text:=Dword2Hex(9999,true);
得到的结果是 270F
在易语言里用
编辑框1.内容 = 取十六进制文本(9999)
得到的结果也是 270F
======================================
晕,楼主看来你是对delphi是一点也不了解。你提出这个问题,给出的这些代码,最后调用的就是一个函数:
Dword2Hex(integer,Boolean):string;
而这个调用的函数和易语言的:
取十六进制文本() 是一个意思。