呵呵！小问题！怎样取得一组字符串的ascii码?

Question

rt
比如我有一组字符串'3asd4jvs5dflkj54'怎样才能取得其相应的ascii码啊?

Answer 1

怕了ShowMessage(IntToStr(Integer(str[0])))

Answer 2

var
  S: string;
  A: Integer;
begin
  S := '3asd4jvs5dflkj54';
  A := Ord(S[1]);  //其中A就是字符'3'的ASCII码，为$31
end;

Answer 3

to comanche(太可怕)
String类型中不能从0开始

Answer 4

var
  i:Integer;
  a,b:String;
begin
  a:='3asd4jvs5dflkj54';
  b:='';
  for i:=1 to length(a) do
    b:=b+' '+IntToStr(Ord(a[i]));
end;