本来参考了一个文章 可惜测试报错
http://hi.baidu.com/blackcode/blog/item/4ec300f4b06f9ae77709d748.html
哪种方法 效率高 速度快 不报错 呵呵
我对 move 不是很熟悉
有采用动态链表方法的 最好
去看VCL 里LIST的源码
d2009 开始有的 TDictionary <,> ......
一个单元U_SimpleQuery 有如下定义
type
TSimpleQuery = class(Tpanel)
.
.
.
private
Procedure QueryEditExit(Sender: TObject);
.
.
.
我新建一个窗体
TV_Query = class(TForm)
SimpleQuery: TS ......
g_bMove := False;
procedure MyPrcCbMotionDetect(lnCardID : Integer; bMove : Integer; Reserved : Integer);stdcall;
begin
If Not g_bMove Then
begin
g_bMove := True;
ShowMessage('动态检测成 ......
如题,东西到手马上结贴,本人QQ 447649655
http://search.download.csdn.net/search/delphi%E7%BB%84%E4%BB%B6%E5%8F%82%E8%80%83%E5%A4%A7%E5%85%A8
同意楼上
我这有这本书和光盘,如果需要的话联系我,qq:654837039
呵呵,我有
求下载帖在C++Builder版块是属于非技术分的.
Delphi组件参考大全
......
备份代码如下procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Edit1.Text:=SaveDialog1.FileName;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
var
i:string;
failure:boolean;
begin
failure:=false;
i:=ExtractFilePath(Appli ......
delphi中怎么在DBgrid中实现鼠标滚轮效果?
用ADO+DBgrid访问的记录
private
procedure ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean); //在下面的过程写好后直接按Ctrl+Shift+C将自动生成此段代码
{ Private declarations }
......