Notice
Recent Posts
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 |
Tags
- dll
- 예제
- 초보
- Visual Studio 2005
- 파라미터
- Firebird
- 기초
- 입문
- 데이터베이스
- 인스톨
- 셋업
- SQL
- Visual Basic
- PostgreSQL
- c#
- WIN32 SDK
- winsock
- VB.NET
- 파이어버드
- 소니
- 델파이
- 설치
- SDK
- MySQL
- xml
- MFC
- 시리얼 통신
- 문자열
- Delphi
- vb
Archives
- Today
- Total
프로그래밍 노트
[델파이] 동적배열 선언 본문
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
begin
SetLength(bbb, 3, 2);
for i := low(bbb) to high(bbb) do
begin
for j := low(bbb[i]) to High(bbb[i]) do
begin
bbb[i,j] := TButton.Create(nil);
bbb[i,j].parent := self;
bbb[i,j].Width := 10;
bbb[i,j].Height := 20;
bbb[i,j].Top := 30 * i;
bbb[i,j].Left := 20 * j + bbb[i,j].Width;
end;
end;
for i := low(bbb) to high(bbb) do
begin
for j := low(bbb[i]) to High(bbb[i]) do
begin
bbb[i,J].Destroy;
end;
end;
end;
Comments