김훈 wrote:

> 안녕하십니까?

> 우선, 새해 복 많이 받으십시오.

> 제가 봉착한 문제는 아래와 같습니다.

>

> [배열의 동적할당문제]

> procedure Tfrm...........

> var

> i, j : integer;

> NAMES : array[0..2000, 0..3] of string;

> begin

> i := 2100;

> NAMES[...][...]......

> end;

> 이와같은 함수에서 NAMES의 MAX크기를 재할당 해줄 수있는 방법이

> 있는가요? 찬절한 답변을 기다리고 있겠습니다.



동적 배열은 다음과 같이 씁니다..

procedure Tfrm...........

var

i, j : integer;

NAMES : array of string; //1차원배열

NAMES : array of array of string; //2차원배열



begin

//1번째 방법

i := 100

SetLength(NAMES, i, 20);

//i * 20의 배열이 할당 됩니다..



//2번째 방법

i := 100

SetLength(NAMES, i);

SetLength(NAMES[1], 10);

SetLength(NAMES[2], 9);

SetLength(NAMES[3], 8);

SetLength(NAMES[4], 7);

SetLength(NAMES[5], 6);

SetLength(NAMES[6], 5);

SetLength(NAMES[7], 4);

SetLength(NAMES[8], 3);

SetLength(NAMES[9], 2);

SetLength(NAMES[10], 1);

...

end;

많은 도움을 받았습니다.

감사드립니다. 김진호님...^^