【结】数组赋值报错

zhjkill

var
  tmp1,rr :string;
  l,i,j,k:integer;
  n1,n2,n3:array of string;
  //const n1:array[0..9] of string=('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');
  //const n2:array[0..3] of string=('','拾','佰','仟');
  //const n3:array[0..2] of string=('元','万','亿');
begin
  SetLength(n1,9);
  for i:=0 to length(n1)-1 do
  begin
      if i=0 then
      n1:='零';
      if i=1 then
      n1:='壹';
      if i=2 then
      n1:='贰';
      if i=3 then
      n1:='叁';
      if i=4 then
      n1:='肆';
      if i=5 then
      n1:='伍';
      if i=6 then
      n1:='陆';
      if i=7 then
      n1:='柒';
      if i=8 then
      n1:='捌';
      if i=9 then
      n1:='玖';
  end;
在 for i:=0 to length(n1)-1 do//报错Incompatible types: "String" and "String[]"

shangxy

procedure TCT1.Button2Click(Sender: TObject);
var n1,n2 :array of string;
    i:integer;
begin
  SetLength(n1,9);
  for i :=0 to length(n1)-1 do
begin
      if i=0 then
      n1:='零';
      if i=1 then
      n1:='壹';
      if i=2 then
      n1:='贰';
      if i=3 then
      n1:='叁';
      if i=4 then
      n1:='肆';
      if i=5 then
      n1:='伍';
      if i=6 then
      n1:='陆';
      if i=7 then
      n1:='柒';
      if i=8 then
      n1:='捌';
      if i=9 then
      n1:='玖';
  end;

end;
我这里没有问题哦，换成 ：
for i:=low(n1) to high(n1) do

看看呢？

zhjkill

for i:=low(n1) to high(n1) do 这样可以了
结吧