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 获取记录数
　　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['日期'] := 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); //建议//嘻嘻，少计算一次

本文转自
http://foxhack.blog.51cto.com/96963/31438