delphi
文章平均质量分 51
shaopang
人很笨,笨得自己叫什么都忘了。敬请原谅!
展开
-
Grid中累加
procedure TFrm_02_Wh_04.sumImp;var sumImp : double; BookMark: Pointer; Lines:string;begin sumImp:=0.0; BookMark := MDBGrid1.DataSource.DataSet.GetBookmark; MDBGrid1.DataSource.DataSet.First;转载 2006-04-08 21:48:00 · 804 阅读 · 0 评论 -
taborder
var I: integer;begin for I:=0 to Self.ComponentCount-1 do begin if (Components[i] is TWinControl) then (self.Components[i] as TWinControl).TabOrder := i; end;end;转载 2006-04-08 22:42:00 · 911 阅读 · 0 评论 -
sql序号连续
SELECT ISNULL(MIN(id),0)+1 AS id FROM incontact WHERE id NOT IN (SELECT id-1 FROM incontact) 可以保证序号连续!!!转载 2006-04-08 22:14:00 · 1789 阅读 · 0 评论 -
Delphi中动态链接库(DLL)的建立和使用
一 Dll的制作一般分为以下几步:1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字,在其下写过程的名称。不用写参数和调用后缀。二 参数传递1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程],来报出调用成功或失败,或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话,与windows转载 2006-08-14 16:12:00 · 1006 阅读 · 0 评论