Delphi中建議使用的寫法

{ 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 字段賦值 } 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.4 使用Self指針 } begin Edit1.Parent := Form1; //不建議//Form1只是一個變量//如果沒有分配資源怎麼辦？ /////// Edit1.Parent := Self; //建議 end; { No.5 利用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.6 遍歷數組 } 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.7 利用MaxInt常量 } begin Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建議 /////// Caption := Copy(Edit1.Text, 3, MaxInt); //建議//嘻嘻，少計算一次 end; { No.8 必須執行的代碼、使用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;