임시 스트링 리스트를 사용하는 것이 어떤경우 훨씬
빠른 결과를 나타낼 수 있다.

ListBox1.Clear;
Ini := TIniFile.Create('win.ini');
ReadSection('Colors', ListBox1.Items);
Ini.Free;

위와같이 하는 대신에 이렇게 해 보자.

StrList := TStringList.Create;
ListBox1.Clear;
Ini := TIniFile.Create('win.ini');
ReadSection('Colors', StrList);
Ini.Free;
ListBox1.Items.Assign(StrList);
StrList.Free



2. 리소스로부터 비트맵 로드.

MyBitmap.Handle := LoadBitmap(HInstance, 'BITMAPID');

물론 이 전에 RES파일을 실행파일에 구겨넣어야 한다.
{$R MYSTUFF.RES}



3. 폼위에 있는 컴포넌트의 갯수 찾기

폼위에 몇개의 컴포넌트가 있는지 알고 싶다면,
ComponentCount메소드를 사용하면 된다. 예를들어
아래의 코드는 폼위에 있는 모든 판넬의 색깔을
파랗게 바꾼다.

procedure TForm1.Button1Click(Sender: TObject);
var
a : Integer;
begin
for a:= 1 to ComponentCount do
if Components[a-1] is TPanel then
TPanel(Components[a-1]).Color := clBlue;
end;



4. 컴포넌트를 이름으로 찾기.

FindComponent 메소드를 사용하면, 컴포넌트를 이름으로
찾을 수 있다. 아래 예제는 에디트박스에 나타난 이름으로
컴포넌트를 찾고, 그 색깔을 바꾸고 있다.

procedure TForm1.Button1Click(Sender: TObject);
var
MyComponent : TComponent;
begin
MyComponent := FindComponent(Edit1.Text);
if MyComponent is TPanel then
TPanel(MyComponent).Color := clBlue;
end;



5. 프로그램의 메모리 요구를 줄이기.

프로그램이 OLE를 사용하지 않는다면 이렇게 해 보자

FreeLibrary(GetModuleHandle('OleAut32'));

노턴유틸리티에 의하면, 델파이 프로그램은 실행시
1메가 이상의 메모리를 차지한다고 한다.
위의 코드를 수행함으로써 OleAut32.dll과 OLE32.Dll이
사용하는 만큼의 메모리를 아낄 수 있다.



6. 마우스의 동작범위 제한하기

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
R : TRect;
begin
R := BoundsRect;
InflateRect(R,-30,-30);
ClipCursor(@R);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ClipCursor(Nil);
end;



7. 네모나지 않은 폼 만들기

아래의 소스는 폼을 타원형으로 만들어 준다.

procedure TForm1.FormCreate(Sender: TObject);
var
R : HRgn;
begin
R := CreateEllipticRgn(-15,-15,Width+15,Height+15);
SetWindowRgn(Handle,R,True);
end;



8. 현재 시스템의 언어체계 알기 (한/영 윈도 판단)

시스템에 설치된 IME의 버전을 알아내는 루틴이다.

setlength(s, Max_PAth);
VerLanguageName(GetSystemDefaultLangID, PChar(S), max_path);
SetLength (S, StrLen (PChar(S)));
caption := s;


9. 데스크탑의 위치 알아내기. (델 2.01 이상)

uses 문에 Shlobj를 포함시키고...

var
s : String;
PIDL : PItemIDList;
begin
SetLength(S, MAX_PATH);
SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, PIDL);
SHGetPathFromIDList(PIDL, PChar(S));
SetLength (S, StrLen (PChar(S)));
Caption := s;
end;

아래는 상수의 목록이다.
CSIDL_DESKTOP = $0000;
CSIDL_PROGRAMS = $0002;
CSIDL_CONTROLS = $0003;
CSIDL_PRINTERS = $0004;
CSIDL_PERSONAL = $0005;
CSIDL_FAVORITES = $0006;
CSIDL_STARTUP = $0007;
CSIDL_RECENT = $0008;
CSIDL_SENDTO = $0009;
CSIDL_BITBUCKET = $000A;
CSIDL_STARTMENU = $000B;
CSIDL_DESKTOPDIRECTORY = $0010;
CSIDL_DRIVES = $0011;
CSIDL_NETWORK = $0012;
CSIDL_NETHOOD = $0013;
CSIDL_FONTS = $0014;
CSIDL_TEMPLATES = $0015;


10. Set 변수 조작..

Set 변수에서 +, -조작은 바람직 하지 못하다.
대신에 Include(), Exclude() 를 사용하자!!!


11. 컴포넌트 위의 마우스 존재여부

Controls.Pas 에 나와있는 컴포넌트 메시지를 이용한다.

마우스가 컨트롤 안에 들어오면 CM_MOUSEENTER 가 발생하고,
반대로 커서가 밖으로 나가면 CM_MOUSELEAVE가 발생한다.
컴포넌트의 메소드로 다음을 추가합니다.

procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

그런 다음 함수의 구현부에서

procedure TMyCompo.CMMouseEnter(var Message: TMessage);
begin
TForm(parent).Caption := '들어왔네!';
end;

procedure TMyCompo.CMMouseLeave(var Message: TMessage);
begin
TForm(parent).Caption := '나갔네!';
end;

아버지의 캡션 즉 폼의 캡션에 상태가 나타나게 된다.


12. 스트링에서 원하는 캐릭터 삭제

function CharDelete(Const Str : String ; Const C : Char) : String;
var
Temp : String;
begin
Temp := Str;
while Pos(C,Temp) > 0 do Delete(Temp,Pos(C,Temp),1);
Result := Temp;
end;


13. 스트링 그리드에서 오른쪽 정렬.

StringGrid의 DrawCell 이벤트를 아래와 같이 작성한다.

procedure TForm1.StringGrid1DrawCell(Sender:TObject; Col,Row:Longint,
Rect:TRect; State:TGridDrawState);
var oldalign : word;
begin
if (row=0) or (col<2) then
stringGrid1.canvas.font.style := StringGrid1.canvas.font.style +
[fsbold];
if col<>1 then
begin
oldalign:=settextalign(StringGrid1.canvas.handle,ta_right);
StringGrid1.canvas.textrect(rect,rect.right-2,rect.top+2,
StringGrid1.cells[col,row]);
settextalign(StringGrid1.canvas.handle,oldalign);
end
else
StringGrid1.canvas.textrect(rect,rect.left+2,rect.top+2,
StringGrid1.cells[col,row]);
StringGrid1.canvas.font.style := StringGrid1.canvas.font.style-[fsbold];
end;


14. 파일의 날짜와 크기.

(*----------------------------------------------------------------------------
*)
function SizeOfFile(const FileName: String): LongInt;
// 파일 이름으로 파일의 크기 알아내기.
(*----------------------------------------------------------------------------
*)
var fd : TWIN32FindData;
hFind : THandle;
begin
Result := 0;
try
hFind := FindFirstFile(pChar(FileName), fd);
if (hFind <> INVALID_HANDLE_VALUE) and
((fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0) then
Result := fd.nFileSizeLow;
finally
windows.FindClose(hFind);
end;
end;

(*----------------------------------------------------------------------------
*)
function DateOfFile(const FileName: String): String;
// 파일의 날짜를 스트링으로 반환.
(*----------------------------------------------------------------------------
*)
var
FileHandle : THandle;
begin
Result := '';
try
FileHandle := FileOpen(FileName, fmOpenRead);
if FileHandle > 0 then
Result := DateToStr(FileDateToDateTime(FileGetDate(FileHandle)));

finally
FileClose(FileHandle);
end;
end;

(*----------------------------------------------------------------------------
*)
function IconOfFile(const FileName : String; IconID : Integer) : THandle;
// 아이콘의 핸들을 리턴하는 함수.
// IconID = SHGFI_LARGEICON : 32X32, SHGFI_SMALLICON : 16X16
(*----------------------------------------------------------------------------
*)
var
SHFileInfo : TSHFileInfo;
begin
SHGetFileInfo(PChar(FileName), 0, SHFileInfo, SizeOf(SHFileInfo),
IconID or SHGFI_ICON);
Result := SHFileInfo.hIcon;
end;


15. DC를 스크롤 하기..
The ScrollDC function scrolls a rectangle of bits
horizontally and vertically.


16. 힌트의 위치및 색깔 조작.
procedure TForm1.DoOnShowHint(var HintStr: string;
var CanShow: Boolean; var HintInfo: THintInfo);
var
XYPoint : TPoint;
begin
if HintInfo.HintControl = PlayBtn then
begin
getcursorpos(XYPoint);
XYPoint.Y := XYPoint.Y + 15;
with HintInfo do
begin
HintPos := XYPoint; // 이 버튼 힌트의 위치 바꾸기.
HintColor := clAqua; // 이 버튼의 색깔만 바꾸기
HintMaxWidth := 50; // 이 버튼 힌트 워드랩 주기.
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint := DoOnShowHint;
end;


17. 다른 프로그램의 실행
(*-------------------------------------------------------------------*)
FUNCTION WINRUN(COMMAND,PARAMS,WORKDIR:STRING) : BOOLEAN;
(* 명령어, 파라미터, 작업디렉토리를 인수로 받아서 실행한다.
(*-------------------------------------------------------------------*)
BEGIN
COMMAND:=COMMAND+#0;
PARAMS:=PARAMS+#0;
WORKDIR:=WORKDIR+#0;
RESULT := TRUE;
IF SHELLEXECUTE(0{HANDLE},Nil{'OPEN'{},@COMMAND[1],@PARAMS[1],
@WORKDIR[1],SW_SHOWNORMAL)<32 THEN
BEGIN
RESULT := FALSE;
MESSAGEDLG('FAILED TO EXECUTE '+COMMAND,MTERROR,[MBOK],0);
END;
END;

이 함수를 사용하려면 Uses문에 ShellAPI를 포함해야 한다.


18. 17번을 조금 수정해 다른 프로그램이 끝날때까지 기다리는 함수.
(*-------------------------------------------------------------------*)
FUNCTION WINRUN(COMMAND,PARAMS,WORKDIR:STRING) : BOOLEAN;
(* 명령어, 파라미터, 작업디렉토리를 인수로 받아서 실행한다.
(*-------------------------------------------------------------------*)
var inst : THandle;
BEGIN
COMMAND:=COMMAND+#0;
PARAMS:=PARAMS+#0;
WORKDIR:=WORKDIR+#0;
RESULT := TRUE;
inst := SHELLEXECUTE(0{HANDLE},'OPEN',@COMMAND[1],@PARAMS[1],
@WORKDIR[1],SW_HIDE);
IF inst<32 THEN
BEGIN
RESULT := FALSE;
MESSAGEDLG('FAILED TO EXECUTE '+COMMAND,MTERROR,[MBOK],0);
END else begin
while GetModuleUsage(inst) <> 0 do Application.ProcessMessages;
end;
END;


19. 스트링을 좌우로 정렬하기.

format( '%10s', formatFloat( '#,0', aNumber) );

위와같이 한다면, 10자리 문자열이 만들어지며 우측으로 정렬이 된다.
좌측으로 정렬을 원한다면 '%-10s'라고 주면 된다.


20. 시간과 날짜의 표시

FormatDateTime('yyyy/mm/dd hh:nn:ss :',Now);