如何将文字转化成ASCII码？在线等

Question

如题：
比如我要将：“中国”转化成ASCII码，请问如何实现。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  str,RetStr:string;
  I:Integer;
begin
   str:='你好';
   for I:=1 to Length(str) do
   begin
      if (I<>1) then RetStr:=RetStr+' ';
         RetStr:=RetStr+IntToHex(Integer(str[I]),2);
   end;
end;
转为16进制

Answer 2

var
  str: string;
  I:Integer;
begin
   str:='你好';
   for I:=1 to Length(str) do
   begin
      Memo1.Lines.Add(IntToStr(Ord(Str[i])));
   end;
end;

Answer 3

var sz : string;
sz:='中国';AScII码：High(sz[i])