定义一个树组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]不显示呢
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]不显示呢
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
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;
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;并且手动拖长它的长度!