조언 1
부울 변수의 할당 작업은 직접적이어야합니다. 예를 들어, if/when/else 문에서 if 절은 부울 변수를 true에 할당하고 Else 절은 그것을 false에 할당합니다.下面这段代码的写法是不好的：
if If_Love_Delphi then
Result:=True
또 다른
결과 : = 거짓;
而这样写就比较好：
Result:= If_Love_Delphi;
忠告二
避免使用嵌套的if/then/if语句，而用and来代替。下面这段代码太罗嗦：
if If_Love_Delphi then
if If_Love_Linux then
TryKylix(Now);
应该这样写：
if If_Love_Delphi and If_Love_Linux then
TryKylix(Now);
不用担心后面的判断语句会超前执行。 프로젝트 | 옵션 | 컴파일러 | 구문 옵션 | 완전한 부울 평가 옵션이 일반적으로 꺼져 있습니다 (이 항목을 선택하지 않는 한).
综合前两个忠告，假如你有一段这样的代码：
if If_Love_Delphi then
if If_Love_Linux then
결과 : = 참;
就可以把它改成：
Result:= If_Love_Delphi and If_Love_Linux；
简单而言，假如结果取决于一个条件判断，那么，Result:=True或者Result:=False这样的语句就是多此一举。在初始化布尔型变量的时候，可以给它们赋值。不过根本用不着把一个布尔型变量初始化为False--Delphi在创建这个变量的时候就已经把它赋职位False了。相似的情况还有：
对象的布尔型属性(Boolean)，自动被初始化为False (0)；
整型变量(Integer)，自动被初始化为0；
字符串(String)，自动被初始化为空字符串。
忠告三
判断布尔型变量的值时，无需用"=True"或者"=False"这样的语句。下面的写法不好：
if (If_Love_Delphi=True) and
(If_Love_Linux=False) then
DoNotTryLinux;
对于函数的返回值或者一个属性是布尔型的情况，应该这样写：
if If_Love_Delphi and
not If_Love_Linux then
DoNotTryLinux;
忠告四
尽量不要用"+"操作符进行字符串合并。这样做效率太低了。 다음 예는 좋지 않습니다.
showmessage ( ''하단 높이 ''+inttostr (iheight)+''m, 무게 ''+inttostr (iweight)+''kg. '');
이런 식으로 쓰는 것이 더 나을 것입니다.
ShowMessage(Format(''在下身高%d，体重%d。'', [iHeight,iWeight]));
忠告五
尽量多用with语句。它不仅效率高，而且使代码更加易读。比如，这段代码：
if Sender if TEdit then
if (TEdit(Sender).Text='') or
(TEdit(Sender).Text[TEdit(Sender).SelStart]='') or
(TEdit(Sender).SelLength=
Length(TEdit(Sender).Text))
and (Key in [''a''..''z'']) then
Key:=UpperCase(Key);
就不如这样的代码来得简洁易读：
if Sender is TEdit then
with Sender as TEdit do
if (Text='') or
(Text[SelStart]='') or
(SelLength=Length(Text)) and
(Key in [''a''..''z''] then
Key:=UpCase(Key);