프로그래밍 노트

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 beg..

함수에서 동적 배열과 정적 배열을 파라미터로 넘기는 방법 unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } // 정적 배열형 선언 type TArrVal = array[0..9] of Integer; function Static..

델파이에서 동적으로 컨트롤 만드는 두가지 방법 밑의 소스의 ①과 ②를 보면 컨트롤을 동적으로 만드는 법이 두가지가 있다. ①처럼 바로 컨트롤을 만드는 방법과 ②처럼 기존에 동적 배열 컨트롤을 정의해 두고 배열의 크기를 설정해서 컨트롤을 만드는 방법이 있다. 이 프로그램을 실행시켜서 컨트롤 키를 누르고 마우스를 클릭하거나 컨트롤 키를 누르지 않고 마우스를 클릭하면 동적으로 컨트롤들이 폼에 생성되어진다. 그리고 그렇게 생성되어진 컨트롤을 클릭하면 각 컨트롤의 캡션이 폼의 캡션에 표시되어진다. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, stdctrls, E..

MFC의 동적배열 CArray의 간단한 예제 특별히 다른 설명이 없이 소스만 봐도 그렇게 이해하기 힘들지는 않을 것같다. class CParam { public: CString csFuncID; long nID1; BOOL bReturn; }; void CArrayTest() { long nCount; // 동적 배열 설정 CArray caParam; CParam cpTemp; CParam cpGetData; // 배열 사이즈 설정 caParam.SetSize(0); cpTemp.csFuncID = "TEST0"; cpTemp.nID1 = 0; cpTemp.bReturn = TRUE; // 배열에 요소 추가 caParam.Add(cpTemp); cpTemp.csFuncID = "TEST5"; cpTemp..