翻箱倒柜,《Delphi中建议使用的语句》
(*//
标题: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;
翻箱倒柜,《Delphi中建议使用的语句》的更多相关文章
- Delphi中的异常处理(10种异常来源、处理、精确处理)
一.异常的来源 在Delphi应用程序中,下列的情况都比较有可能产生异常. 1.文件处理 2.内存分配 3.windows资源 4.运行时创建对象和窗体 5.硬件和操作系统冲突 6.网络问题 7.数据 ...
- 转:delphi异常捕获try except语句 和 try finally语句用法
转:http://www.java123.net/v/936977.html 2015-06-24 09:27:48 一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来 ...
- delphi异常捕获try except语句 和 try finally语句用法
原文地址:delphi try except语句 和 try finally语句用法以及区别作者:1865898133 一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下! ...
- Delphi编程建议遵守的规范1---缩进、各种语句的用法
在编程时候,尤其是在一个大的团队里面,遵守统一的编程规范是极其重要的.为所有的开发人员制定一个源代码书写标准,以及程序和文件的命名标准,使他们在编程时有一致的格式,这样,每个编程人员编写的代码能够被其 ...
- 在Delphi中动态地使用SQL查询语句 Adoquery sql 参数 冒号
在Delphi中动态地使用SQL查询语句 在一般的数据库管理系统中,通常都需要应用SQL查询语句来提高程序的动态特性.下面介绍如何在Delphi中实现这种功能.在Delphi中,使用SQL查询语句的途 ...
- delphi中的sql语句中空格问题
sql语句中的冒号 ‘’,在delphi中需要用四个冒号表示 ‘’‘’,delphi中的两个冒号只代表一个冒号
- DELPHI中千万别直接使用CreateThread ,建议使用BeginThread(在C++中无大问题,可是到了DELPHI中情况就不一样了)
以前在写个别程序的时候老是喜欢使用纯API编程. 在C++中无大问题,可是到了DELPHI中情况就不一样了. 当你用 DELPHI写的多线程程序莫名其妙的内存错误,特别是字符串(string)操作; ...
- Delphi中使用比较少的一些语法
本文是为了加强记忆而写,这里写的大多数内容都是在编程的日常工作中使用频率不高的东西,但是又十分重要. ---Murphy 1,构造和析构函数: a,构造函数: 一般基于TComponent组件的派生类 ...
- Delphi中String类型原理介绍
Delphi中字符串的操作很简单,但幕后情况却相当复杂.Pascal传统的字符串操作方法与Windows不同,Windows吸取了C语言的字符串操作方法.32位Delphi中增加了长字符串类型,该类型 ...
随机推荐
- 学android: android-studio从main开始
android-studio 创建hello world很容易,一路next创建blank activity,再接好手机或者avd(andorid virtual device)就好了. 但是对于我 ...
- PPPoE(以太网上的点对点协议)
协议概述 PPPoE分为两个阶段,即Discovery(地址发现)阶段和PPP会话阶段.当某个主机希望发起一个PPPoE会话时,它必须首先执行Discovery来确定对方的以太网MAC地址并建立起一个 ...
- Codeforces Round #325 (Div. 2) D bfs
D. Phillip and Trains time limit per test 1 second memory limit per test 256 megabytes input standar ...
- Spring Boot 框架@Temporal(TemporalType.DATE)
使用spring boot框架开发项目时,遇到这样一个问题: 查询pgSQL数据库中表A中某date数据类型的列B,想得到YYYY-MM-DD格式的日期,结果返回的为时间戳(长整型数据). 解决办法: ...
- SpringMVC中定时器继承Task后无法对service注入问题
最近在做一个Spring+MyBatis的一个项目,其中用到了Redis的存储,然后遇到问题是这样的: RedisTask是通过定时器来每分钟像数据库里推送的,于是就有了 public class R ...
- opencv 人脸识别
背景知识 OpenCV 是一个开源的计算机视觉和机器学习库.它包含成千上万优化过的算法,为各种计算机视觉应用提供了一个通用工具包.根据这个项目的关于页面,OpenCV 已被广泛运用在各种项目上,从 ...
- 如何把一个用户加入sodu组
在一个命令前加sudo,可以使用超级用户的权限执行该命令.但并不是任何用户都可以使用sudo,只有用户属于sudo组时才能使用这个命令. 如 果希望把一个用户加入sudo组,可以用root登录系统,然 ...
- [NOIP2015] 子串(dp)
题目描述 有两个仅包含小写英文字母的字符串 A 和 B.现在要从字符串 A 中取出 k 个互不重叠的非空子串,然后把这 k 个子串按照其在字符串 A 中出现的顺序依次连接起来得到一 个新的字符串,请问 ...
- sql中的跨库查询
在sql查询时,需要关联2个服务器上的不同数据库,只需要在所需查询的表名前加上服务器地址即可. 例如:在 192.168.0.15,8020的db110库 和 192.168.0.150,8082的d ...
- 数迹学——Asp.Net MVC4入门指南(5):从控制器访问数据模型
MovieController中的方法Index()代码,初认识,应该有很多理解错误的地方,暂时这么记忆吧,待随后修改 Index()代码: @model IEnumerable<MVCMovi ...