본 문서는 델파이 코드 형식에 대한 Borland 표준 스타일 문서(링크)를 바탕으로 만들어졌다.
델마당 표준의 원칙은 소스에 포함된 논리를 보다 명확하게 표현하기 위함이다.
따라서 볼랜드 표준과는 다르게 스타일이 강요되지는 않으며,
누구나 코드를 이해하기 쉽고, 코드에 표현된 논리가 명확한 범위내에서 개인적인 취향에 따라 변경할 수 있음을 명시한다.
델파이의 오브젝트 파스칼 언어는 아름다울 정도로 잘 디자인된 언어이며, 가장 큰 장점중에 하나가 읽기 쉽다는 점이다.
본 표준의 목적은 이러한 델파이 - 오브젝트 파스칼 코드의 장점을 더욱 극대화시키는 데 있다.
많은 개발자들이 사용하는 방식을 종합단 간단한 표준 방식을 따른다면, 좀 더 보기 좋고 쉬운 코드가 생길 것이며
디버깅 주기나 유지보수 기간을 줄일 수 있고, 소스 코드의 값어치를 높일 수 있을 것이다.
물론 코딩 방식이나 개발 작업 스타일은 개발자 자신의 입맛에 따라 다른 문제이다.
그럼에도 불구하고 이렇게 코딩 표준 스타일을 준비하는 것은 나름의 방식이 옳고-그름을 따지자는 것이 아니라,
대부분의 개발자들이 사용하는 표준을 만들어 효율성을 높이자는 것이다.
인간은 표준을 따라 사용하면서 툴이 더 친숙해지며, 잘 쓰는 패턴들을 보다 빠르고 정확하게 인식하는 습성이 있다.
아마도 이러한 표준 방식이 낯설더라도 표준에 따라서 사용하다보면 편리함을 느끼게 될 것이다.
그래도 자신의 방식을 지키고자 하는 사람들은, 적어도 이 곳 델마당나 공유 자료로 올릴 경우에는
다른 사람들과의 공유 차원에서 범용적인 표준 방식을 사용했으면 한다.
블럭/레벨간의 확인가능하고 일정하게 지켜진다면, 들여쓰기에 대한 제약은 전혀 두지 않기로 한다.
단, 볼랜드 방식인 레벨마다 2칸의 탭간격을 추천한다.
특히 조건문이나 출력문의 내용이 길어져서 옆줄로 길어진 경우, 다음줄로 내려쓰고 들여쓰기하여 구분할 수 있도록 한다.
기본적인 주석은 중괄호 { } 로 한다.
부수적으로 (* *) 방식은 개발중에 임시로 사용되는 주석 용도로만 사용한다.
// 방식 주석은 한 줄만 주석처리 할 때 사용하도록 한다.
유닛 파일 가장 위에는 다음과 같은 파일 헤더를 붙인다.
{***************************************************************}
{ }
{ This line describes the purpose of the unit }
{ }
{ Copyright (c) 2001 godrm@netsgo.com }
{ }
{ All rights reserved. }
{ }
{***************************************************************}
|
오브젝트 파스칼 컴파일러 지시자에 사용되는 것과 마찬가지로 { } 로 컨티션 설정을 한다.
if ... then
begin
{$IFDEF VER90}
raise Exception.CreateRes(SError);
{$ELSE}
raise Exception.Create(SError);
{$ENDIF VER90}
end;
|
한줄 띄우기(Blank Lines)는 저작권 주석이나, 패키지 선언, 클래스 선언, 메소드 선언들 사이에 한다.
다음의 경우에는 빈공간을 주지 않는다.
(1) 메소드 이름과 여는 괄호 사이
(2) .(점) 연산자 앞뒤
(3) 단항연사자와 연산값 사이
(4) 형변환을 위한 형과 변수
(5) 여는 소괄호 '(' 다음과 닫는 소괄호 ')' 앞
단, ()안에서 함수가 들어갈 경우나 강조할 경우는 띄어써도 무방하다.
(6) 여는 대괄호 '[' 다음과 닫는 소괄호 ']' 앞
(7) 세미콜론 앞
//CORRECT
function TMyClass.MyFunc(var Value: Integer);
MyPointer := @MyRecord;
MyClass := TMyClass(MyPointer);
MyInteger := MyIntegerArray[5];
ShowMessage( IntToStr(MyInteger) );
|
//INCORRECT
function TMyClass.MyFunc( var Value: Integer ) ;
MyPointer := @ MyRecord;
MyClass := TMyClass ( MyPointer ) ;
MyInteger := MyIntegerArray [ 5 ] ;
|
대부분의 토큰 분리자나 연산자는 붙여쓰는 것을 원칙으로 한다.
단, 사칙연산( +, -, *, /, div, mod )와 부등호( >, <, = ) 그리고 대입연산자( := )는 띄어쓴다.
begin-end 는 같은 레벨에 맞춰 쓴다.
단, if-else 문과 사용되는 경우에는 예외를 둔다. (3.5장 (1)if문 참조)
for I := 0 to 10 do begin // Incorrect, begin on same line as for
for I := 0 to 10 do // Correct, begin appears on a separate line
begin
|
블럭문내의 마지막 명령줄의 생력가능한 세미콜론도 찍어주는 것을 원칙으로 한다.
begin
MyStatement;
MyNextStatement;
MyLastStatement; // semicolon optional
end;
|
파일이름에는 InfixCaps 혹은 Camel Caps 방식인 단어 첫 알파벳만 대문자를 쓰는 방식으로 한다.
단, 확장자는 소문자로 한다.
프로젝트명은 될 수 있으면 프로젝트의 내용을 설명하도록 만들며,
정해진 프로젝트 코드명이 있을 경우에는 코드명을 사용한다.
폼 파일명은 기능별 혹은 구성별로 붙일 수 있는 기능성이름과 Form이라는 postfix를 사용한다.
( 실제로 폼의 .dfm 파일은 유닛 파일명을 저장할 때, 같은 이름으로 그대로 저장된다. )
유의사항: 폼 파일명은 디자인한 폼 클래스의 인스턴스명이 아니다.
폼의 인스턴스는 TForm 클래스명인 Form이라는 prefix를 붙인다. (3.8 인스턴스명 참조)
|
폼 설명
|
폼 파일명
|
|
About Form
|
AboutForm.dfm
|
|
Main Form
|
MainForm.dfm
|
델파이 폼의 유닛 이름은 자동적으로 폼 파일과 같은 이름을 사용한다. (2.2 폼 파일이름 참조),
반면에 일반 유닛일 경우에는 Unit이라는 postfix를 사용한다.
단, C/C++의 헤더파일을 변환하는 경우에는 확장자를 제외한 파일명을 그대로 사용한다.
|
유닛 설명
|
유닛 파일명
|
|
About Form Unit
|
AboutForm.pas
|
|
Service Unit
|
ServiceUnit.pas
|
|
Windows.c
|
Windows.pas
|
데이터 모듈의 파일명에는 DM이라는 postfix를 사용한다.
|
DM 설명
|
DM 파일명
|
|
Client Data Module
|
ClientDM.dfm
|
|
Customer Data Module
|
CustomerDM.dfm
|
패키지 파일명에는 구분할 수 있는 prefix에
디자인타임패키기와 런타임패키지를 구분할 수 있는 infix와
지원하는 델파이버전을 나타내기 위한 D4, D5, D6와 같은 postfix로 구성한다.
|
"iiilibvv.pkg" - design package
"iiistdvv.pkg" - runtime package
|
모든 오브젝트파스칼 예약어는 소문자로 쓰도록 한다.
함수명은 동사(+목적어) 형태로 사용하며, 값을 가져오는 경우 Get, 값을 설정하는 경우 Set을 쓴다.
InfixCaps 방식을 사용한다.
procedure ThisIsMuchMoreReadableRoutineName;
|
procedure FormatHardDrive;
|
function GetUserName: string;
|
변수명은 명사 형태로 사용하며, InfixCaps 방식을 사용한다.
변수선언을 할 때는 같은 형끼리는 복수선언하며, 다른 형끼리는 단수선언만 한다.
델파이에서는 WIN32 형식인 헝가리언 표기법을 권장하지 않는다.
하지만, WIN32 API를 사용할 경우나, VisualStudio와 같은 다른 툴과의 연동을 위해서는 사용해도 무방하다.
var
nLoop, MyNumber: Integer; // Correct
lpstrMyString: String; // Incorrect
|
클래스의 멤버 변수일 경우, F(Field) prefix를 주로 사용한다.
필요에 따라서 P(Pointer-포인터형변수), G(Global-전역변수), L(Local-지역변수), X(temp-임시변수), A(argument-함수파라미터)등의 prefix를 붙일 수 있다.
내부 테이터형은 소문자로 표기하며, WIN32 API 데이터형은 대문자로 표기한다.
var
MyString: string; // reserved word
WindowHandle: HWND; // Win32 API type
I: Integer; // type identifier introduced in System unit
|
열거형은 선언할 때는 T(Type) prefix를 붙이며, 열거형 내부 목록에는 열거형에 대한 구분자(혹은 약자)를 2-3글자 prefix로 붙인다.
TSongType = (stRock, stClassical, stCountry);
|
배열형의 경우에는 T prefix, Array postfix를 붙이며,
또한 데이터의 포인터형은 P(Pointer) prefix를 덧붙인다.
type
PCycleArray = ^TCycleArray;
TCycleArray = array[1..100] of Integer;
|
레코드의 경우에도 T prefix를 사용하며, 레코드 내부 변수에는 붙이지 않는다.
type
PEmployee = ^TEmployee;
TEmployee = record
Name: string;
Rate: Double;
end;
|
if문은 적어도 두 줄로 내려쓴다.
다만 수행문이 짧으면 한 줄로 써도 무방하다.
// CORRECT
if A < B then DoSomething;
// CORRECT
if A < B then
DoSomething;
|
if-else문의 경우 소스의 논리 구조를 표현하는 수단이다.
각 논리 블록간의 관계가 명확하게 구분된다면, 자유로운 레벨간의 들여쓰기와 begin-end 표시가 허용된다.
그리고 특히 if문이 반복되서 길 게 사용될 경우 begin-end를 표시하여 범위를 명확하게 한다.
가능하면 if-else를 반복해서 사용하지 않도록 하며, 될 수 있으면 case문으로 구성한다.
// INCORRECT
if A < B then
if C < B then
DoSomething
else if D < B then
DoSomething;
// CORRECT
if A < B then
begin
if C < B then
DoSomething;
end
else if D < B then
DoSomething;
|
if문안에 if문의 구조가 5단계이상 들어가지 않도록 코드를 간결화한다.
여러 조건들은 나열할 때는 왼쪽부터 빈도가 높고, 가능성이 높은 것을 선택한다.
if Condition1 and Condition2 and Condition3 then
|
case문은 순서가 있는 데이터형에만 사용할 수 있다.
case-else문도 if-else와 같이 논리 블록간이 명확하게 구분되는 범위에서 들여쓰기가 허용된다.
if문과 마찬가지로 중요도와 빈도가 높은 것이 윗쪽에 있도록 한다.
각 case마다 4-5줄을 넘어가지 않도록 하며, 길어질 경우 따로 함수를 작성하도록 한다.
// CORRECT
case Control.Align of
alLeft, alNone: NewRange := Max(NewRange, Position);
alRight: Inc(AlignMargin, Control.Width);
end;
// CORRECT
case x of
csStart:
begin
j := UpdateValue;
end;
csBegin: x := j;
csTimeOut:
begin
j := x;
x := UpdateValue;
end;
end;
// CORRECT
case ScrollCode of
SB_LINEUP, SB_LINEDOWN:
begin
Incr := FIncrement div FLineDiv;
FinalIncr := FIncrement mod FLineDiv;
Count := FLineDiv;
end;
SB_PAGEUP, SB_PAGEDOWN:
begin
Incr := FPageIncrement;
FinalIncr := Incr mod FPageDiv;
Incr := Incr div FPageDiv;
Count := FPageDiv;
end;
else
Count := 0;
Incr := 0;
FinalIncr := 0;
end;
// CORRECT (볼랜드 스타일)
case ScrollCode of
SB_LINEUP, SB_LINEDOWN:
begin
Incr := FIncrement div FLineDiv;
FinalIncr := FIncrement mod FLineDiv;
Count := FLineDiv;
end;
SB_PAGEUP, SB_PAGEDOWN:
begin
Incr := FPageIncrement;
FinalIncr := Incr mod FPageDiv;
Incr := Incr div FPageDiv;
Count := FPageDiv;
end;
else
Count := 0;
Incr := 0;
FinalIncr := 0;
end;
|
while문에서는 가능하면 루프중에 빠지지않고, loop조건으로만 종료되도록 구성한다.
// INCORRECT
while x < j do begin
DoSomething;
DoSomethingElse;
end;
// CORRECT
while x < j do
begin
DoSomething;
DoSomethingElse;
end;
// CORRECT
repeat
x := j;
j := UpdateValue;
until j > 25;
|
만약 1씩 증가가 아닌 경우라면, while문을 이용해서 마지막값부터 거꾸로 루프를 돌도록 한다.
// INCORRECT
for i := 0 to 10 do begin
DoSomething;
DoSomethingElse;
end;
// CORRECT
for i := 0 to 10 do
begin
DoSomething;
DoSomethingElse;
end;
// CORRECT
i := AList.Count-1;
while i => 0 do
i := i - 2;
|
with문을 사용할 경우에는 복수객체나 구조체를 참조하지 않도록 주의하며,
같은 이름의 다른 객체의 프로퍼티나 메소드를 참조하지 않는지 확인해야 한다.
에러처리 (Exception Handling)는 에러 복구와 리소스 보호의 역할을 한다.
되도록 각 동적할당마다 try..finally 구문을 사용하여 예외사항에 대비한다.
다음의 예제는 동적할당된 클래스를 참조할 때, 예외가 발생할 수 있는 숨겨진 버그가 있다.
SomeClass1 := TSomeClass.Create
SomeClass2 := TSomeClass.Create;
try
{ do some code }
finally
SomeClass1.Free;
SomeClass2.Free;
end;
|
다음의 예제는 숨겨진 버그를 없애는 올바른 방법이다.
SomeClass1 := TSomeClass.Create
try
SomeClass2 := TSomeClass.Create;
try
{ do some code }
finally
SomeClass2.Free;
end;
finally
SomeClass1.Free;
end;
|
특정 예외 사항이 발생했을 때의 행동을 위해 사용한다.
// Correct
try
try
EnumThreadWindows(CurrentThreadID, @Disable, 0);
Result := TaskWindowList;
except
EnableTaskWindows(TaskWindowList);
raise;
end;
finally
TaskWindowList := SaveWindowList;
TaskActiveWindow := SaveActiveWindow;
end;
|
혹시 처리되지 않는 에러을 위해서는 else 구문을 사용한다.
클래스의 Access Level은 Private, Protected, Public, Published 순으로 낮으며,
데이터는 될 수 있으면 Public 레벨을 사용하지 않고, Private 레벨을 사용하면서 Access Method를 활용한다.
클래스명은 T(Type) prefix를 붙이고 기능/목적상의 이름을 붙인다.
클래스의 인스턴스명은 클래스명을 앞에 붙이고, 기능/목적상의 이름을 붙인다.
예) FormMain, FormAbout, ButtonShowList , ButtonLoadImage
단, 유사한 기능의 클래스는 같은 클래스로 묶어도 무방하다
예) TButton과 TSpeedButton의 예
강조를 위해서나, 뒤에 붙는 이름과 특별히 구분이 필요할 경우에는 '_' 를 넣어도 된다.
예) FormMain, Form_About, Button_SaveToFile , Button_LoadFromFile
