当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： 网上找来的 感觉对入门者很有启示 收藏一下了!No.1 判断逻辑

 

 

Delphi中建议使用的语句

网上找来的 感觉对入门者很有启示 收藏一下了!

no.1 判断逻辑类型 } 【程序编程相关:计算机等级考试注册表reg文件自动生成。】

【推荐阅读:P2P 之 UDP穿透NAT的原理与实现】

var b: boolean; 【扩展信息:关于delphi的socket的问题？ 】

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;

/////

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：