定义一个树组var
num: array[1..5] of Integer;赋值
num[1]:=2;
num[2]:=6;
num[3]:=7;
num[4]:=33;
在标签中输出
LabelNumber1.Caption :='数组第1个数是: ' + IntToStr(num[1]);
LabelNumber2.Caption :='数组第2个数是: ' + IntToStr(num[2]);
LabelNumber3.Caption :='数组第3个数是: ' + IntToStr(num[3]);
LabelNumber4.Caption :='数组第4个数是: ' + IntToStr(num[4]);
结果为
数组第1个数是:
数组第2个数是:
数组第3个数是:
数组第4个数是:为什么数组num[1],num[2],num[3],num[4]不显示呢

解决方案 »

  1.   

    可以。
    procedure TForm1.Button1Click(Sender: TObject);
    var
    num: array[1..5] of Integer;
    begin
    num[1]:=2;
    num[2]:=6;
    num[3]:=7;
    num[4]:=33;
    LabelNumber1.Caption :='数组第1个数是: ' + IntToStr(num[1]);
    LabelNumber2.Caption :='数组第2个数是: ' + IntToStr(num[2]);
    LabelNumber3.Caption :='数组第3个数是: ' + IntToStr(num[3]);
    LabelNumber4.Caption :='数组第4个数是: ' + IntToStr(num[4]);
    end;
    你LabelNumber1的AutoSize有没有为True
      

  2.   

    LabelNumber1的AutoSize已经是True了,还是不行,好象数组没有被赋值似的
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
    num: array[1..5] of Integer;
    begin
    num[1]:=2;
    num[2]:=6;
    num[3]:=7;
    num[4]:=33;
    LabelNumber1.Caption :=Format('数组第1个数是:%D ',[Num[1]]);
    LabelNumber2.Caption :=Format('数组第1个数是:%D ',[Num[2]]);
    LabelNumber3.Caption :=Format('数组第1个数是:%D ',[Num[3]]);
    LabelNumber4.Caption :=Format('数组第1个数是:%D ',[Num[4]]);
    end;
      

  4.   

    还有别忘了把你的TLabel控件的宽长调整好后把AUTOSIZE属性修改为FALSE;
      

  5.   

    呵呵,把AUTOSIZE属性修改为FALSE,就行了,谢谢大家了,刚开始学DELPHI,以后希望大家多多帮忙啊提前祝大家圣诞快乐!!!!!!!!!!
      

  6.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
     num:array [1..5] of integer;
    begin
      num[1]:=1;
      num[2]:=2;
      num[3]:=3;
      num[4]:=4;
      label1.Caption:='数组第1个数是: ' + inttostr(num[1]);
      label2.Caption:='数组第2个数是: ' + inttostr(num[2]);
      label3.Caption:='数组第3个数是: ' + inttostr(num[3]);
      label4.Caption:='数组第4个数是: ' + inttostr(num[4]);
    end;
    我试的结果是正确的。你把labelnumber的autosize改为false;并且手动拖长它的长度!