먼저 2차원 배열을 선언할때

myIntArray : array [1..100, 1..5] 로 선언을 하시고..



var

x, y: integer;



for x:=1 to 100 do

for y:=1 to 5 do

label[x, y]:=IntToStr(MyIntArray[x, y]);



로 하면 됩니다.

label[x, y] 가 된것은 label 을 또 2차원배열로 만들어야 가능한데

그것은 findComponent 함수를 사용해서 label 배열에 지정을 해주면 됩니다.

FindComponent 로 검색해보면 그에 관련된 많은 답변을 볼 수 있을 겁니다..



그러니까 일단은 Form 의 Private 구문에

아래처럼 label 을 선언하고..



TForm1 = record(TForm)

..

private

label : array [1..100, 1..5] of TLabel;



public

..

end;



FormCreate 이벤트에서

label[x, y]:=FindComponent('label'+inttostr(i));

저런 식으로 한다는 얘기죠..



콤맹 wrote:

> myintarray:array of [1..100] of [1, 5] 의 2차원 배열을 선언하고, 100개의 라벨에

> myintarray[i, j]의 구성요소 500개의 값을 집어넣을까 합니다.

>

> Lable1.Caption:=IntToStr(myintarray[1, 1]);

> Lable2.Caption:=IntToStr(myintarray[1, 2]);

> Lable3.Caption:=IntToStr(myintarray[1, 3]);

> Lable4.Caption:=IntToStr(myintarray[1, 4]);

> ....

>

> 이런식으로 일일이 라벨에 한개씩 값을 집어넣지 않고, for문등을 이용해서

> 쉽게 넣으려면 어떻게 해야 할까요?