Delphi中建议使用的语句-白红宇

Delphi中建议使用的语句

阅读量：4947 次

发布时间：2019-06-11

本文共 2562 字，大约阅读时间需要 8 分钟。

No.1 利用MaxInt常量

begin  Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建议//----  Caption := Copy(Edit1.Text, 3, MaxInt); //建议//嘻嘻，少计算一次end;

No.2 临时SQL查询

1234567891011

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 获取记录数

1234567891011121314151617

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 字段赋值

12345678

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 遍历数据集

12345678910111213141516

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参数，使代码通用

12345678

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 使用默认转换函数

12345678

var  I: Integer;begin  I := StrToInt(Edit1.Text); //不建议//---  I := StrToIntDef(Edit1.Text, 0); //建议//参考StrToFloatDef,StrToDateDef....不过这些只有Delphi6才有end;

No.9 遍历数组

12345678910

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 判断逻辑类型

12345678910111213141516

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.11 用FreeAndNil来释放对象