寫代碼是一種藝術。使用Delphi,任何人都可以輕而易舉地開發出某種軟件、完成某些任務。而完美的代碼則只有真正的高手才能寫出。除了正確的縮進、大小寫、命名規則之外,請時刻牢記愛因斯坦的名言--簡單就是美。下面將談及的五個代碼問題,可能是初學者、甚至一些老鳥都會犯的錯誤。
忠告一
布爾型變量的賦值操作應該是直接的。例如,在一個if/then/else語句中,if子句將布爾型變量賦值爲True,而else子句將其賦爲False。下面這段代碼的寫法是不好的:
if If_Love_Delphi then
Result:=True
else
Result:=False;
而這樣寫就比較好:
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);
不用擔心後面的判斷語句會超前執行。Project|Options|Compiler|Syntax Options|Complete Boolean eval選項通常是關閉的(除非你選定這個項),這保證了執行順序不會顛倒。
綜合前兩個忠告,假如你有一段這樣的代碼:
if If_Love_Delphi then
if If_Love_Linux then
Result:=True;
就可以把它改成:
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)+'米,體重'+IntToStr(iWeight)+'公斤。');
這樣寫會較好:
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);
轉載:http://www.delphifans.com/infoview/Article_807.html
----------------------------------------------------
(*//
標題:Delphi中建議使用的語句
整理:Zswang
連接:http://www.csdn.net/Expert/TopicView1.asp?id=724036
日期:2002-06-22
支持:wjhu111#21cn.com
//*)
{ No.1 判斷邏輯類型 }
var B: Boolean;
begin
B := Boolean(2); //這樣只是爲了調試//B := True;
if B = True then ShowMessage('B = True'); //不建議//不安全
///////
if B then ShowMessage('B'); //建議//簡短
end;
var B: Boolean;
begin
if Edit1.Text = '是' then //不建議//煩瑣
B := True
else B := False;
///////
B := Edit1.Text = '是'; //建議//簡短
end;
{ No.2 臨時SQL查詢 }
begin
QueryTemp.Close;
QueryTemp.SQL.Text := 'SELECT SUM(金額) AS 合計 FROM 銷售表';
QueryTemp.Open; //不建議//數據沒有關閉造成資源浪費
ShowMessage(Query1.FieldByName('合計').AsString);
/////
QueryTemp.SQL.Text := 'SELECT SUM(金額) AS 合計 FROM 銷售表';
QueryTemp.Open;
ShowMessage(Query1.FieldByName('合計').AsString);
QueryTemp.Close; //建議用//使用完就關閉
end;
{ No.3 獲取記錄數 }
var
vRecordCount: Integer;
begin
Query1.SQL.Text := 'SELECT * FROM Table1'; //不建議//嚴重浪費資源,會取得很多不必要得信息
Query1.Open;
vRecordCount := Query1.RecordCount;
Query1.Close;
/////
Query1.SQL.Text := 'SELECT COUNT(*) AS 記錄數 FROM Table1'; //建議//快速有效、只處理一條記錄
Query1.Open;
vRecordCount := Query1.FieldByName('記錄數').AsInteger;
Query1.Close;
ShowMessage(IntToStr(vRecordCount));
end;
{ No.4 字段賦值 }
begin
Table1.Edit;
Table1.FieldByName('姓名').AsString := Edit1.Text; //不建議
Table1.FieldByName('日期').AsDateTime := Date;
/////
Table1['姓名'] := Edit1.Text; //建議//簡短、擴充性好
//Table1.Fieldvalues['姓名'] := Edit1.Text; //Borland建議的方法。以及ParamValues[]
Table1['日期'] := Date;
end;
{ No.5 使用Self指針 }
begin
Edit1.Parent := Form1; //不建議//Form1只是一個變量//如果沒有分配資源怎麼辦?
///////
Edit1.Parent := Self; //建議
end;
{ No.6 遍歷數據集 }
var
I: Integer;
begin
Query1.First;
for I := 0 to Query1.RecordCount - 1 do begin //不建議//容易被影響
Query1.Next;
{ };
end;
/////
Query1.First;
while not Query1.Eof do begin //建議
{ };
Query1.Next;
end;
end;
{ No.7 利用Sender參數,使代碼通用 }
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '' then //不建議
Edit1.Color := clRed;
///////
if TEdit(Sender).Text = '' then //建議//複製到EditXChange中很方便
TEdit(Sender).Color := clRed;
end;
{ No.8 使用默認轉換函數 }
var
I: Integer;
begin
I := StrToInt(Edit1.Text); //不建議
///////
I := StrToIntDef(Edit1.Text, 0);//建議//參考StrToFloatDef,StrToDateDef....不過這些只有Delphi6纔有
end;
{ No.9 遍歷數組 }
var
I: Integer;
A: array[0..9] of Integer;
begin
for I := 0 to 9 do //不建議
A[I] := I;
///////
for I := Low(A) to High(A) do //建議//擴充性好
A[I] := I;
end;
{ No.10 利用MaxInt常量 }
begin
Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建議
///////
Caption := Copy(Edit1.Text, 3, MaxInt); //建議//嘻嘻,少計算一次
end;
{ No.11 Result函數指針 }
function FuncName: Boolean;
begin
FuncName := True; //不建議//並且放在賦值號右邊不能當普通變量
///////
Result := True; //建議//擴充性好
end;
function FuncSum(A: array of Integer): Integer;
var I: Integer;
begin
Result := 0;
for I := Low(A) to High(A) do
Result := Result + A[I]; //可不能用 FuncSum := FuncSum + A[I];
end;
{ No.12 必須執行的代碼、使用try ... finally ... end語句 }
var
vStringList: TStringList;
begin
vStringList := TStringList.Create;
vStringList.LoadFromFile('c:/temp.txt');
ShowMessage(vStringList.Text);
vStringList.Free; //不建議//如果出現異常資源將無法釋放
///////
vStringList := TStringList.Create;
try
vStringList.LoadFromFile('c:/temp.txt');
ShowMessage(vStringList.Text);
finally //建議//即使出現Exit都會執行
vStringList.Free;
end;
end;
//其他情況1
begin
Screen.Cursor := crHourGlass;
try
{ 耗時操作 }
finally
Screen.Cursor := crDefault;
end;
end;
//其他情況2
begin
Query1.DisableControls;
try
{ 操作數據集 }
finally
Query1.EnableControls;
end;
end;
--------------------------------------------
>>對象的布爾型屬性(Boolean),自動被初始化爲False (0);
>>整型變量(Integer),自動被初始化爲 0;
>>字符串(String),自動被初始化爲空字符串。
這個不一定
局部變量最好初始化一下,不然會產生莫名錯誤.
特別是: Integer, string, Pointer
偶的經驗
再來一條:
if adoDataSet.IsEmpty then exit;
Fieldvalues這個我推崇,不要用byname
Fieldvalues這個我推崇,不要用byname
Table1['姓名'] := Edit1.Text; 這個可以 但要是:
Edit1.Text := Table1['姓名'] //這個絕對不行,因爲這時候要是NULL就會報錯 這時候要FieldByName
----------------------------------------
With 語句也不能到處用,容易引起閱讀時的語意不清,對於TEdit(Sender) 這種情況,最好是定義一個變量先進行一次賦值
var
AEdit:TEdit;
begin
if Sender Is TEdit then
begin
AEdit:=TEdit(Sender);
if (AEdit.Text=') or(AEdit.Text[AEdit.SelStart]=')
or (AEdit.SelLength=Length(AEdit.Text)) and (Key in ['a'..'z']) then
Key:=UpperCase(Key);
end;
end;
if BoolVar then
xx := True
else
xx := False;
這個可擴展性要比lz推薦的好。