假如.................

Question

var
strs:string;
strm:array of widechar;
begin
    setlength(strm,6);
    strs:='你好吗';
    StringToWideChar(strs,@strm[0],6);
    showmessage(STRM[2]);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  s:Widestring;
  sa:array of Widechar;
  i,leng:integer;
begin
  s:= '你好嗎一介1人';
  leng := length(s);
  setlength(sa,leng);
  for i:=0 to Leng-1 do
    sa[i] := s[leng-i];
  for i :=0 to leng-1 do showmessage(sa[i]);
end;