摘要：
今日开发遇到一个错误：delphi 7.1。使用ado连接sql server，book_adoquery有一个lookup字段，每当insert/append的时候ide就会弹出一个错误：an unknown error has occurred -- eoleexception跟踪发现错误来源于vcl locaterecord方法的flookupcursor.findfunction tcu......
摘要：
uses ..., typinfo;
function tform1.isapropexist(ainst: tobject; const propname: string): boolean;var propinfo: ppropinfo;begin result := false; propinfo := getpropinfo(ainst, propname); if propinfo ......
Delphi连接关系数据库，不支持自动获取自增型字段的新值， 最好不用数据库的AutoInc字段，而是手工提供上一页 ...// getautoinc_q.sql.text := select * from autoincid where idname = :idname 【程序编程相关:
ShadowStar CodeFast 】 【推荐阅读:
类似Access查找中的记忆功能】function tdm.getautoincid(const idname: string): integer; 【扩展信息:
delphi实现批量缩略图生成工具开发代】 var oldid : integer; begin result := -1; getautoinc_q.active := false; getautoinc_q.parameters.parambyname(idname).asstring := idname; getautoinc_q.active := true; if getautoinc_q.recordcount>0 then begin oldid := getautoinc_q.fieldbyname(idvalue).asinteger ; getautoinc_q.edit; getautoinc_q.fieldbyname(idvalue).asinteger := oldid +1 ; getautoinc_q.post; result := oldid + 1; end; end; 也可以用存储过程来实现.
摘要：
二、语句 首先要说一下begin ... end； 相当于c或者c＋＋中的{ ... }。 (1)声明语句 常量：const 常量标识符[:类型]=常值； 变量：var 变量标识符：数据类型； (2)表达式语句 由运算符组成的合法语句 运算符优先级： 运算符 优先级 @ not 1 (最高) *,/,div,mod,and,shl,shr,as, 2 +,-,or,xor ......
