//汉字转ascii
procedure TForm1.Button3Click(Sender: TObject);
var
s,a:string;
i:integer;
begin
a:='我';
s:=EmptyStr;
for i:=1 to 2 do
s:=s+inttostr(ord(a));
showmessage(s);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
s,a:string;
i:integer;
begin
a:='我';
s:=EmptyStr;
for i:=1 to 2 do
s:=s+inttostr(ord(a));
showmessage(s);
end;
//ascii 转汉字
showmessage(chr(206)+chr(210));