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.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;
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值