将ASCII码转换为10进制怎么转换?

Question

例如:SYNC

Answer 1

function p(s: String): String;
var
  i: Integer;
begin
  Result := '';
  for i:=1 to Length(s) do Result := Result + IntToStr(s[i]) + ' ';
end;

Answer 2

function p(s: String): String;
var
  i: Integer;
begin
  Result := '';
  for i:=1 to Length(s) do Result := Result + IntToStr(Ord(s[i])) + ' ';
end;

Answer 3

SYNC是控控制字符，对应10进制22，可以查表：
http://wwd.8u8.com/exam/asciihlp.zip