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

[tanfo2002]

假如有一个字符串STRS：='你好吗'，要将它转换成数组STRM[6]：={'吗','好','你'}；应该怎样编程实现，不吝赐教，多多感谢。

[netlib]

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

[WnEunfn]

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;