2008年10月4日
另类调用DLL
摘要： WllibCall.incstdcall;{$IFNDEF DLLWLLib}external 'wllib.dll';{$ENDIF}......function Cpl(PSrc: PChar; len: integer; PDest: PChar): PChar; {$I 'WllibCall.inc'} 阅读全文
posted @ 2008-10-04 19:12 delphi中间件 阅读(193) 评论(0) 推荐(0) 编辑
操作树形节点
摘要： TNodeType = (ntBM, ntXLD, ntKH, ntZD, ntCLD); TRtuNodeData = record NodeType: TNodeType; id: integer; //数据库的索引，不同的节点类型对应不同的表和字段 RtuAddr: string[8]; end;......var sCommID: string; data: ^TRtuNodeData;begin data := TTreeView.Selected.Data; if data = nil then exit; if data.NodeType <> ntZD then e 阅读全文
posted @ 2008-10-04 13:02 delphi中间件 阅读(247) 评论(0) 推荐(0) 编辑