艰辛
高级水手
UID 20239
精华
0
积分 85
帖子 85
阅读权限 20
注册 2001-11-30
状态 离线
|
急急急，请高手将两小段Delphi程序转换为VC程序，谢谢
本人不会Delphi语句，以下两段程序看不懂，请高手将其改为VC程序，两段程序功能
皆为编码，例如：程序1如果_S_的值为_“中文”(0xd6_0xd0_0xce_0xc4)，程序执行
后，程序返回的字符串为_“4E2D6587”。请高手帮帮忙，在下感激不尽。
程序_1：
function_Encode2(var_s:WideString):String;_
var
i,len:Integer;
cur:Integer;
t:String;
begin
Result:=``;
len:=Length(s);
i:=1;
while_i＜=len_do
begin
cur:=ord(s);
//BCD转换
FmtStr(t,`％4.4X`,[cur]);_
Result:=Result＋t;
inc(i);
end;
end;_
程序_2：
//将中文转换为UniCode,
function_AnsiToUnicode(Ansi:_string):string;
var
s:string;
i:integer;
j,k:string[2];
a:array_[1..1000]_of_char;
begin
s:=``;
StringToWideChar(Ansi,@(a[1]),500);
i:=1;
while_((a＜>#0)_or_(a[i+1]＜>#0))_do_begin
j:=IntToHex(Integer(a),2);
k:=IntToHex(Integer(a[i+1]),2);
s:=s+k+j;
i:=i+2;
end;
Result:=s;
end;
|
|
