字符串（string）怎样转化成ASCII

Question

str = "1234"
for i:=0 to length(str)-1 do
begin
    showmessage(inttostr(ord(i)))
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str:= '大家好';
for i:= 1 to length(str) do
begin
    showmessage(chr(byte(str[i]))) ;
end;
end;
不过，汉字的ASCII码都大于128，在键盘上没有相应的位置，不知道你把汉字变成ASCII码有什么用途

Answer 2

var
  str:string;
  asc:integer;
  index,len:integer;
begin
   len:=length(str);
   for index:=1 to len do
   begin
       asc:=ord(str[index]);
       //str[index]取第index个字符
       //ord求相应字符的ASCII值
       Showmessage(inttostr(asc));
       Showmessage(inttohex(asc,2));
   end;
end;