把STRING类型的直写到ARRAY OF STRING中？

Question

var dd:string;
sda:array [0..9] of string;dd:='壹贰叁肆伍陆柒八九拾';sda[0]:='壹';
sda[1]:='贰'
...
sda[9]:='拾'//把DD的每个字赋给SDA中，如保做
//主要是如保访问DD的每一个项？

Answer 1

     I := 0
for n = low(dd) to high(dd) do
begin
  sda[I] := dd[n];
  inc(I);
end;

Answer 2

用不着这么复杂procedure TForm1.Button1Click(Sender: TObject);
var
  dd : WideString;
begin
  dd:='壹贰叁肆伍陆柒八九拾';
  ShowMessage(dd[1]);
end;

Answer 3

var
  s: widestring;
  i: integer;
begin
  s := '壹贰叁肆伍陆柒八九拾';
  for i := 1 to length(s) do
    sda[i-1] := s[i];
end;

Answer 4

var
  Dd: WideString;
  Sda: array [0..9] of WideChar;
begin
  dd:='壹贰叁肆伍陆柒八九拾';
  Move(Dd[1], Sda[0], Length(Dd) * SizeOf(WideChar));

Answer 5

恩，用widestring和widechar比较方便
也可以两位一拷贝
tmpstr := dd;
for i := 0  to 9 do
begin
  sda[i] := leftstr(tmpstr,2);
  tmpstr := rightstr(dd,length(tmpstr )-2);
end;