FindFirst  是用来寻找目标目录下的第一个文件, FindFirst函数在delphi帮助下的定义: function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; 其中有一句:FindFirst returns 0 if a file was successfully located 也就是说,当成功找到文件时,返回0. FindNext   则是寻找下一个TSearchRec 是一个

1.       提取字符串中指定子字符串前的字符串 Function Before( Src:string ; S:string ): string ; Var   F: Word ; begin   F:= POS(Src,S) ;   if F=0 then     Before := S    else     Before := COPY(S,1,F-1) ; end ; eg: Before('123','helloworld_123')  返回结果:helloworld_ 2.  

通过TADOQuery的方法Locate,输入字符,查找到定位到对应的数据位置,优点快速定位,缺点是只匹配查找到的和第一个位置,无法连续定位下一个! //定位qrymembertype.Locate('Cname', Cname, [loCaseInsensitive]); 'Cname'列名Cname 所匹配的值loCaseInsensitive, loPartialKey] 不区分大小写,部分匹配[loCaseInsensitive] 不区分大小写[loPartialKey] 部分匹配[]

if CDSUserFunc.Locate('mod_id;res_id', VarArrayOf([UserFunc.MOD_ID, UserFunc.RES_ID]), [loCaseInsensitive]) then begin CDSUserFunc.Delete; end; if not CDS_UserDict.Locate('DICT_ID', strDictId, [loCaseInsensitive]) then begin

procedure TForm1.Button2Click(Sender: TObject); var R: Variant; begin R := MemTableEh1.Lookup('Name',Edit1.Text,'Name'); if not VarIsNull(R) then ShowMessage(R); end;

Delphi ActiveX Form的使用实例 By knityster 1. ActiveX控件简介 ActiveX控件也就是一般所说的OCX控件,它是ActiveX技术的一部分. ActiveX控件可以被集成到很多支持ActiveX的应用当中去,或者直接用来扩展应用的功能,这些支持ActiveX的应用包括C++ Builder.Delphi.Visual dBASE. Visual Basic.Visual C++.Internet Explorer.Netscape Navigator等

详细看demo25的代码 These techniques are demonstrated in Demo25 in the examples folder of your Python for Delphi distribution. The old vs. the new ways. Because Delphi 6 has custom variants, they can point to specific smart proxies for python objects.  Befo

一 什么是MAP文件 什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号.源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方.任何时候使用,不需要有额外的程序进行支持.而且,这是唯一能找出程序崩溃的地方的救星. 如果要查找代码行号,需要使用下面的公式做一些十六进制的减法运算: 崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000 为什么要这样做呢?我们得到的崩溃地址都是由 偏移地址+ 基地址得来的,所以在计

 一 什么是MAP文件       什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号.源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方.任何时候使用,不需要有额外的程序进行支持.而且,这是唯一能找出程序崩溃的地方的救星.       如果要查找代码行号,需要使用下面的公式做一些十六进制的减法运算:       崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000       为什么要这样做呢?我们得到的

Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找 //查找是否存在 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := 'CodeGear Delphi 2007 for Win32';   reg.RegEx  := '\d';   if reg.Match then     ShowMessage('找到了')   else     ShowMessage('

在Socket通信服务器的开发中,我们经常会需要Socket与某个结构体指针进行绑定.当连接量很大时,意味着需要个高效的查找方法 Delphi中提供了哈希算法类,以此类为基础,修改出Socket专用Map类. 源码下载 http://files.cnblogs.com/lwm8246/uSocketHash.rar unit uSocketHash; //-- : //QQ 5 interface uses SyncObjs; type ,= TSocket = NativeUInt; {$EL

用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是 回调函数.我的理解是这样的: 回 调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等之类的.但是什么时候被调用却不知道 了.回调函数一般是按照调用者的要求定义好参数和返回值的类型,你向调用者提供你的回调函数的入口地址,然后调用者有什么事件发生的时候就可以随时按照你 提供的地址调用这个函数通知你,并按照预先规定好的形式传递参数.所以很多人打比方,说回调函数还真有点像您随身带的BP机

调用查找对话框 关键点 HTMLID_FIND = 1; //查找对话框 HTMLID_VIEWSOURCE= 2; //用记事本查看源代码 HTMLID_OPTIONS =3; //Internet选项 实现过程 uses ActiveX; const   CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';   HTMLID_FIND = 1;      //查找对话框   HTMLID_VIEWSOURCE=

listbox实现以下效果: \ 关键代码,采用数据集的方式 type PpatientData=^RpatientData; RpatientData= record patient_id:string; admiss_times:Integer; inpatient_no:string; name:string; sex:string; bed_no:string; nurse_level:string; diag:string; end; var item:TMetropolisUILis

Delphi遍历文件夹及子文件夹 {-------------------------------------------------------------------------------过程名:    MakeFileList 遍历文件夹及子文件夹作者:      SWGWEB日期:      2007.11.25参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名返回值:    TStringList Eg:ListBox1.Item

项目要求:根据给定的标题去<中国青年报>网上电子报数据中查找匹配的内容,并从该内容中取出引题.正题.作者和正文. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,

Format 函数 Delphi 支持“开参数”和动态数组,变体数组,使用时的语法类似 Delphi 中的集合:采用两个方括号把不同类型的变量括起来(这太方便了啊),也可以采用声明一个 TVarRec 类型的数组来容纳不同的类型变量(具体请参阅其帮助文档) Format函数声明比较 function Format(const Format: string; const Args: array of const): string; overload; extern DELPHI_PACKAGE U

//需要引用tlhelp32单元//查找进程function findProcessId(pname:string):Cardinal; var hsnapshot:THandle; lpe:TProcessEntry32; found:Boolean; begin Result:=; if pname<>'' then begin hsnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,); try lpe.dwSize := SizeO

public override System.Windows.Style SelectStyle(object item, System.Windows.DependencyObject container) { if (ContainerStyle1 == null) return null; TCheckListBoxItem citem = container as TCheckListBoxItem; TCheckListBox listView = ItemsControl.Items