普通字符串转为ASCII码，如何实现

Question

问题如题

Answer 1

首先分解字符串为单个char然后使用ord()for i:=1 to length(s) do
begin
  ...
  ord(s[i]);
  ...
end;

Answer 2

只能将字符转化为ASCII码，若要将整个字符串转化可以这样：
function (ds : string) :string ;
var ds_str : string ;
  i: integer ;
  MidC: Char ;
begin
  ds_str := '' ;
  for  i:= 1 to length(trim(ds)) do
  begin
    MidC := ds[i] ;
    ds_str := ds_str+IntToStr(ord(midc));
  end ;
  Result := ds_str ;
end;

Answer 3

汉字可以这样
ord('你'[1])
ord('你'[2])