摘要：
对使用delphi制作dll复用文件的建议......
摘要：
http://www.sina.com.cn 2002/03/11 09:29 赛迪网-中国计算机报......
delphi小技巧集锦
function getkbstatus():string;//返回当前键盘状态,包括numloce.caps lock.insert 【程序编程相关:
Delphi2005可以下载了】 【推荐阅读:
用delphi批量导入某子目录下所有JP】//每个状态信息占两个字符,顺序为:numloce.caps lock.insert 【扩展信息:
delphi2005试用版】 //copy right 549@11:29 2003-7-22 var status:string; keystates:tkeyboardstate; begin getkeyboardstate(keystates); if odd(keystates[vk_numlock])then status:=数字 else status:=光标; if odd(keystates[vk_capital]) then status:=status+大写 else status:=status+小写; if odd(keystates[vk_insert]) then status:=status+插入 else status:=status+改写; result:=status; end;
小技巧: const errhead=操作出现错误,错误信息为:+#13 try ... except on e: exception do showmessage(errhead+e.message+#13+当前操作为:xxxxx); end; 可以让用户看到更多的错误信息,有助于客户反馈程序错误.
俺写得比较菜的,但是经常用的就是:
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> //执行sql //输入参数:sqlstring, adoquery //类型: string, tadoquery procedure tmainform.exesql(sqlstring: string; adoquery: tadoquery); begin with adoquery do begin connection := dm.dbaccinfo;//这个是我的,可以添加用的connection //或者用use也可以. if active then active := false; open; sql.clear; sql.add(sqlstring); execsql; close; end; end;
可能大家都知道这个.不过,我见过的代码里面,
好像很少人这么来写这么独立出来一个过程.
这个保证我自己原创……
//open adoquery //根据reallike(爱翔(只有lizzy可以叫其他人不能)) 的过程改编 //支持多行sql //可根据需要自己修改成只支持单行sql的过程,或者exesql过程 //delphi6下测试通过. procedure opensql(sqlstring: tstrings; adoquery: tadoquery); var i:integer; begin with adoquery do begin close; sql.clear; for i:=0 to sqlstring.count-1 do sql.add(sqlstring[i]); try open; ...
下一页 摘要：
delphi 中的属性property（适合初学delphi）
propery in delphi
前言：
适合delphi初学者，有面向对象知识和java或者vc编程经验人士阅读。
一普通属性
我们在delphi的类中常常能看到这样的代码：propert property 属性名 类型名 read 字符串1 write 字符串2
这里属性的名字可能不同。都是这样的格式：......
