急!求大家帮忙写段小代码.我只会C++,突然要用DELPHI赶个东西出来.

Question

功能很简单.就是写一个函数,把一个字符串(中英文都有)的ASCII码取出,返回值类型也为字符串类型;
比如: String a = change("dgking");
则ShowMessage(a)的结果为"64676B696E67";
最好再能帮我写个由ASCII码还原字符串的
比如:String a = changeII("64676B696E67");
则ShowMessage(a)的结果为"dgking";
谢谢啦,时间紧迫,不紧的话我也会好好学一下DELPHI.

Answer 1

function StrtoAsc(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do
  begin
    result:=result+inttostr(ord(s[i]));
  end;
end;function Asctostr(s:string):string;
var i,j:integer;
begin
  j:=length(s) div 2;
  for i:=1 to j do
  begin
    result:=result+chr(strtoint('$'+s[2*i-1]+s[2*i]));
  end;
end;

Answer 2

function Change(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do
  begin
    result:=result+IntToHex(ord(s[i]),2);
  end;
end;function ChangeII(s:string):string;
var i,j:integer;
begin
  j:=length(s) div 2;
  for i:=1 to j do
  begin
    result:=result+chr(strtoint('$'+s[2*i-1]+s[2*i]));
  end;
end;

Answer 3

不好意思，错了
function StrtoAsc(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do
  begin
    result:=result+inttohex(ord(s[i]),2);
  end;
end;