북해 께서 말씀하시기를...

> 안녕하세요. 동적생성한 버튼을 해체하려하는데 잘 안되네요. 단순히 하나의 버튼을 동적생성하고 해체하는 것은 되는데요, 여러개의 버튼을 생성한 다음 그것을 동시에 해체하는 방법을 모르겠어요. 예를 들어 다음의 코드

> for Count := 1 to 30 do

> begin

> B := TButton.Create(Self);

> B.Parent := Self;

> B.left := Count * 100;

> B.Top := 400;

> end;

> 위와같이 사다리타기 프로그램을 만들려고 하는데요, 버튼을 여러개 생성할 수는 있는데 생성된 것들을 모두 해체하는 방법을 모르겠습니다. 좀 알려주세요.

>



먼저 전역으로 TButton 형태의 배열을 선언합니다.

B: array[1..30] of TButton;



그리고 위의 소스에서 조금만 수정하면 돼겠네요..



생성시..

for Count := 1 to 30 do

begin

B[Count] := TButton.Create(Self);

B.Parent := Self;

B.left := Count * 100;

B.Top := 400;

end;



해제시

for Count := 1 to 30 do

begin

B[Count].Free;

end;