늘푸른 wrote:

> 폼위에..선택된 테이블의 필드수만큼 label을 생성해서 필드명을 가져오고 싶습니다.

> 그 옆에는 edit를 동적 생성하고요.

> 초보라서 다른 분께서 쓰신 글을 봐도 부분만 있어서인지 아직까지 이해하는데 어렵습니다.

> 죄송하지만 자세히 가르쳐 주세요.



안녕하세요.

테이블 필드수만큼 라벨을 생성하실려면.. 동적배열을 이용해

label를 동적생성 하심 되겠네요.



아래 예제 만들어봤습니다.

참고하세요.



var

ALabel: array of TLabel;



procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

begin

SetLength(ALabel, 5);



for i:=0 to 4 do

begin

ALabel[i] := TLabel.Create(Self);

ALabel[i].Left := Self.Left + 10 + (10*i);

ALabel[i].Top := Self.Top + 10 + (20*i);

ALabel[i].Caption := '동적생성 Label ' + IntToStr(i);

ALabel[i].Parent := Self;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

var

i: Integer;

begin

for i:=0 to 4 do

ALabel[i].Free;

end;





그럼..20000.