Tag

摘要： { 在这个例子中 我们使用@运算符获取指向数组A第一个元素的指针，并将其分配给P。 接下来，我们使用SetString函数将P转换为指向AnsiString的指针，并将其分配给S。 请注意，我们使用PAnsiChar而不是PChar作为SetString函数的第二个参数，因为字节数组可能包含非ASC 阅读全文

摘要： var wintext: array[0..MAXBYTE] of Char; WdChar: array of Char; focuswhd: THandle; processId: Pointer; threadid: Cardinal; GUITHREADINFO:TGUIThreadInfo 阅读全文

摘要： 当adoquery有添加fields时，如果字段的长度比数据库字段长度大，保存时就会出现以下提示。 数据提供程序或其他服务返回 E_FAIL 状态 解决：保持长度一致，或者不要填充字段 阅读全文

摘要： 如果窗口上有控件设置了default 属性，在onkeypress 上判断 if key=#13 then 是会失效的。只有把default 属性去掉才会响应。 D7 环境 阅读全文

摘要： uses Clipbrd, ShellAPI;var FFileName: array[0..MAX_PATH] of Char; FileNumber,i:Integer; Drop:Cardinal; begin if Clipboard.HasFormat(CF_HDROP ) then be 阅读全文

摘要： function ClearCurrentLine: boolean; const BUFSIZE = 0*0; var nConsoleHandle : Cardinal; lwWritten : Longword; Coord : TCoord; pcsb_info: _CONSOLE_SCRE 阅读全文

摘要： 表格有一个选择列，用来选择数据后。提取选中的记录做某些事，这种是很常见的。 现有以下需求： 右键全选 、反选（支持选择过滤后的数据） 如果全部采取DB感知的方式 ，数据多的时候很卡。测试1000多条就很卡了 解决方案： //改成智能新 cxGridDB.DataController.DataMode 阅读全文

摘要： //存多个数字 例子procedure TForm1.btn1Click(Sender: TObject); var i:integer; A,B,C,d:INTEGER; begin //设计的时候根据使用场景 要存多个数字，每个数字只能占多少 //4个数字 每个数字8bit =1个字节 A := 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type tmythreadclass = class o 阅读全文

摘要： 通过类名称（字符串）创建类实例 首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass); 然后在运行期使用如下代码创建 TYourClass 类的实例。 procedure Txxx.xxxx;varcls: TPersistentClass; 阅读全文