delphi 中Adoquery ,在打开时能否让记录指针不移动?由于数据集Adoquery 时,它的针指称动会废时,能否在打开完成之前不让记录指针不移动.打开完毕之后再回复移动? 这样用:self.ADOQuery1.DisableControls;.........self.ADOQuery1.EnableControls; procedure refreshDataSet(daSet: TadoQuery); var tempBookmark: TBookmark; begin IF Da

delphi 判断是否出现滚动条     if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then    ShowMessage('Vertical scrollbar is visible!');  if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then    ShowMessage('Horiz

Delphi XE7试用记录2 万一博客中介绍了不少Delphi7以后的新功能测试,想跟着测试一下.每次测试建立一个工程,在窗体上放几个按钮,测试几个相关的功能,这样虽然简单明了,但日后查阅起来不方便.最好能操作简单,尽可能集中到一个项目中,功能分类清晰,同时可以看到运行效果及源代码. 窗体上放置ActionList.MainMen.TreeView.PageControl.Memo.测试代码放到Action中,运行时根据Action自动建立MainMenu和TreeView中的项目,点击Men

Delphi XE7试用记录1 在网上看到XE7的一些新特征,觉得完整Unicode支持.扩展Pascal语法.更多功能的库都很吸引人,决定试试XE7. XE7官方安装程序很大,因此选择了lite版,网上可以搜到下载地址,安装很容易,注意要把需要的附加功能包和安装程序放在一起,而且不要更名. 安装后,先建立一个VCL窗体程序,测试一下. XE7启动速度比Delphi7慢了许多,毕竟程序大了很多,自带的组件包也多了很多.减少组件包的数量可以提高一些速度,网上说有默认程序选项,设置以后可以适用于新工

Delphi 判断TImage是否为空:1)非空 Image1.Picture.Graphic <> nil2)为空 Image1.Picture.Graphic = nil注意不能用Image1.Picture 来判断. Image1.Picture.Graphic即可直接赋值也可用Assign.Image1.Picture不能直接赋值,只能用Assign. Image1.Picture.Graphic  可包含多种格式的图像.Image1.Picture.Bitmap仅包含Bitmap图像

private EditText et; private String ettext; SharedPreferences settings; Editor editor; //设置 settings = getSharedPreferences("nick", 0); editor = settings.edit(); editor.putString("nick", ettext); editor.commit(); //我在读的时候 settings = ge

Delphi 判断按键状态 http://blog.sina.com.cn/s/blog_54da9cc001015di1.html (2012-04-05 14:22:50) 标签: 杂谈 分类: Delphi 调用GetKeyState(nVirtKey:integer)函数,可以判断是否按下了Alt.Ctrl.Shift键,如果函数返回值<0则表示按下了. 参数: nVirtKey     指定一个键.如果指定字母或数字键,nVirtKey 必须为该字符的 ASCII 码值.如:判断‘a’

转]delphi判断MDI窗体的子窗体是否存在//***************************************************************************//函 数 名: CreateForm//返 回 值: boolean//参 数: TForm//功 能: 判断MDI窗体的子窗体是否存在//***************************************************************************func

1.1Delphi数据库应用程序的层次结构 Delphi数据库应用程序通过数据存取构件对数据库进行访问,通过可视的数据构件(Data Control)将数据呈现给用户,并与用户进行交互.Delphi数据库应用程序的结构如下图: 图 2‑1 Delphi数据库应用程序结构图 Delphi访问数据库可以分为三级: (1).由ADO(Active Data Object)对象及底层数据库驱动程序来访问数据源. (2).再由数据集构件(TADOTable.TADOQuery.TADODataSet)与A

判断系统中.NET FrameWork已安装版本的方法很多,比如检查C:\Windows\Microsoft.NET\Framework\下的子目录,但是子目录往往是包含版本号,比如v2.0.50727.v4.0.30319,当然网上也有一些是判断注册表中的HKEY_LOCAL_MACHINE\Software\Microsoft\.NETFramework下的子目录,这个和判断系统文件一样下面都显示的版本号, 经过发现,安装了.NET FrameWork会在HKEY_LOCAL_MACHINE

开始以为和SQL Server一样,使用not exists进行判断,结果不行: ) INSERT INTO vrv_paw_template(templateName,templateFileName,createTime,updateTime) VALUES('自定义','policycustom',NOW(),NOW()); END IF 正确的写法: INSERT INTO vrv_paw_template(templateName,templateFileName,createTime

判断一个数组的长度用 Length 还是 SizeOf ?最近发现一些代码, 甚至有一些专家代码, 在遍历数组时所用的数组长度竟然是 SizeOf(arr); 这不合适! 如果是一维数组.且元素大小是一个字节, 这样用看不出错误, 譬如:  -------------------------------------------------------------------------------- vararr1: array[0..9] of Char;arr2: array[0..9] o

function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=true; //设置返回值为 是(真) Vaule:=trim(Vaule); //去空格 to length(Vaule) do //准备循环 begin 中的任一个 begin result:=false; //返回值 不是(假) exit; //退出函数 end; end; end; function IsUpperC

首先,我们先来认识下CreateFile函数,它的原型如下   HANDLE CreateFile( LPCTSTR lpFileName,    //指向文件名的指针 DWORD dwDesiredAccess,   //访问模式(写/读) DWORD dwShareMode,   //共享模式 LPSECURITY_ATTRIBUTES lpSecurityAttributes,//指向安全属性的指针 DWORD dwCreationDisposition,   //如何创建 DWORD d

判断头几个字节: function IsJpegFile(FileName: string): Boolean; const RightBuf : ..] of Byte = ($FF,$D8,$FF,$D9); var Buf: ..] of Byte; begin FillChar(Buf, , ); ) do begin Position := ; ReadBuffer(Buf[], ); Position := Size-; ReadBuffer(Buf[], ); Free; end;

//判断是否是数字 function IsNumeric(sDestStr: string): Boolean; //简写多余汉字 function SimplifyWord(sWord: string; iMaxLen: Integer): string; //读写取注册表中的字符串值 function ReadRegStr(sDWName, KeyName: string; SvrBZ: TSvrOrClient; DefaultValue: string = ''): string; pr

//判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; var i:integer; begin i:=ord(ch); if( i<19968) or (i>40869) then result:=false else result:=true; end; //判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; var i:integer; begin i:=ord(ch); if( i<19968

数据源记录集:ClientDataSetSource:目标记录集:ClientDataSetCopy 1)复制一条记录. ClientDataSetCopy.Close;  ClientDataSetCopy.Fields.Clear;  ClientDataSetCopy.FieldDefs.Clear; //复制字段定义  ClientDataSetCopy.FieldDefs.Assign( ClientDataSetSource.FieldDefs);  ClientDataSetCop

1.查找表中多余的重复记录,重复记录是根据单个字段(peopleId)来判断select * from people where peopleId in (select   peopleId  from   people  group  by   peopleId  having  count(peopleId) > 1) 2.删除表中多余的重复记录,重复记录是根据单个字段(peopleId)来判断,只留有rowid最小的记录delete from people where peopleId 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellAPI; // 要引用此单元 const WM_APPBAR_MESSAGE = WM_USER + 1; type TForm1 = class(TForm) Timer1: TTimer; Memo1: TMemo; pro