小弟最近才开始学dephi,基础很差,所以在看一些源码的时候不知所云,烦请大侠帮忙解答一下面这些各有什么意思:
1.msg := #$ef#$0#50#$0#$0#$0#$0#$0#$0#$0#$0;2.AddKeyValue函数有什么作用.能否解释.
function AddKeyValue(var mesg:String;KeyType:Integer;KeyValue:String) : Integer;
var
keylen : Integer;
begin
keylen := length(KeyValue);
mesg := mesg + char(KeyType shr 8) + char(KeyType and $00FF) + #4 +
char(keylen shr 8) + char(keylen and $00FF) + KeyValue; AddKeyValue := keylen;
end;谢谢
1.msg := #$ef#$0#50#$0#$0#$0#$0#$0#$0#$0#$0;2.AddKeyValue函数有什么作用.能否解释.
function AddKeyValue(var mesg:String;KeyType:Integer;KeyValue:String) : Integer;
var
keylen : Integer;
begin
keylen := length(KeyValue);
mesg := mesg + char(KeyType shr 8) + char(KeyType and $00FF) + #4 +
char(keylen shr 8) + char(keylen and $00FF) + KeyValue; AddKeyValue := keylen;
end;谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货