如何一个一个字节的读取widestring 字符串的asc 码值

Question

现有
str1:widestring;
str1:='a?b';
str1每个字节既然都是 widechar,str1 长度应该是6
但length(str1)=3
现在问题是
  我如何一个一个字节的读取widestring 字符串的asc 码值，即将每一个 widechar
 分为两个字节，并将其 asc 值读出来

Answer 1

var
  str1: WideString;
  a: array of Char;
  i: Integer;
begin
  str1 := 'a?b';
  SetLength(a, Length(str1)*2);
  Move(str1[1], a[0], Length(str1)*2);
  for i := 0 to Length(str1)*2 do
    ShowMessage(IntToStr(Ord(a[i])));
end;