摘要：用正则表达式在每行开头插入行号需要匹配每一行，可用规则'(^\w+[^.])'，然后对于每个匹配，插入行号 阅读全文

摘要：在Delphi本身不支持正则表达式，但是有许多第三方软件提供了相关组件，通常的有TPerlRegEx和RegExpr，可以在http://RegExpStudio.com中下载此模块，使用时无需安装只要在工程的路径中的search项指定即可（Projects->Options的Directories/Conditions的search项） 阅读全文

摘要：JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写，同时也易于机器解析和生成。它基于JavaScript（Standard ECMA-262 3rd Edition - December 1999）的一个子集。 JSON采用完全独立于语言的文本格式，但是也使用了类似于C语言家族的习惯（包括C, C++, C#, Java, JavaScript, Perl, Python等）。这些特性使JSON成为理想的数据交换语言。 阅读全文

摘要：1.关闭Delphi2.运行Fastreport下的recompile.exe3.选择Delphi版本,如Delphi7;选择要安装的Fastreport版本,此处选择Professional;选择Teechart版本，此处选择TeeChartStd; 选择Recompile all packages,然后单击Compile按钮进行编译，此时会生成一个LibD7目录4.重复以上步骤，把Recompile all packages改为Change language to: Chinese，再单击Compile按钮进行编译5.将LibD7目录下的bpl文件拷贝至windows\system32目录 阅读全文

摘要：The following table lists all defined types for LOCALE_IPAPERSIZE, with DMPAPER_LETTER, DMPAPER_LEGAL, DMPAPER_A3, and DMPAPER_A4 being the most typical. All types other than the ones shown in the table are reserved. Note that the paper size types cannot be combined with one another.TypeValueMeaning 阅读全文

摘要：//可以添加ACTIVE DS TYPE LIBRARY想把自己的东西整理出来已经很久了，可是一直没有时间，自己的水平又太差，也怕耽误别人的时间，所以至今没写出任何东西出来。可是每次看到别人的文章心里也痒痒，于是找来自己在www.delphibbs.com上发表过的一个帖子，以回馈大家。{ *********************************************************************** }{ }{ }{ zhao zhenhua }{ }{ Copyright zhao zhenhua email:zhao-zhenhua@163.net }{ } 阅读全文

摘要：function Kill_Task(ExeFileName: string): integer;const PROCESS_TERMINATE=$0001; //进程的PROCESS_TERMINATE访问权限var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin result:= 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //获取系统所有进程快照 FProcessEntr 阅读全文

摘要：procedure SetFileDateTime(const Tf: string; now1: TDateTime);var Dt1, Dt2: Integer; Fs: TFileStream; Fct, Flt: TFileTime;begin Dt1 := DateTimeToFileDate(now1); Dt2 := Dt1; try FS := TFileStream.Create(Tf, fmOpenReadWrite); try if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and Local 阅读全文

摘要：type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; {...} procedure TForm1.FormCreate(Sender: TObject); begin { tell printer to go to th 阅读全文

摘要：取得当前月份的第一天和最后一天的日期StartOfTheMonth(Now)EndOfTheMonth(Now)还要引用DateUtils单元 阅读全文

摘要：var i: Integer;begin //ADOQuery已打开 //在数据集打开的情况下新增加一个字段 with Self.ADOQuery1 do begin TDataSetDesigner.Create(Self.ADOQuery1); try Designer.BeginDesign; //Keep Old Field //保留旧的字段 Designer.DataSet.Fields.Clear; for i := 0 to FieldDefList.Count - 1 do begin with FieldDefList.FieldDefs[i].CreateField(Sel 阅读全文

摘要：var GPage,GIndex,FGIndex:integer; PageList:array of integer; PageLine: integer; PageMaxRow: integer=28; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);begin GPage := GPage + 1;end;procedure Page1OnBeforePrint(Sender: TfrxComponent);begin GPage :=1; end;procedure GroupFooter1OnBeforePrint( 阅读全文

摘要：function BytesToStr(const i64Size: Int64): string;const i64GB = 1024 * 1024 * 1024; i64MB = 1024 * 1024; i64KB = 1024;begin if i64Size div i64GB > 0 then Result := Format('%.2f GB ', [i64Size / i64GB]) else if i64Size div i64MB > 0 then Result := Format('%.2f MB ', [i64Size / i 阅读全文

摘要：（1）控件属性设置RecvBufferSize说明（默认值为8192字节）：该属性为整型变量，用于指定连接所用的接受缓冲区大小。这些属性是indyftp里面的。SendBufferSize说明（默认值为32768字节）：该属性也为整型变量，用于指定连接所用的发送缓冲区的最大值。该属性在WriteStream方法中 时，可用于TStream指定要发送内容的块数。如果要发送的内容大于本属性值，则发送内容被分为多个块发送。TransferType说明（默认值为ftBinary）：该属性为TIdFTPTransferType型变量。用于指定传输内容是二进制文件（ftBinary ）还是ASCII文 件 阅读全文

摘要：如何用idftp遍历整个目录----下载、删除_delphi教程 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdFTPList, IdTCPClient, IdFTP ; type TForm1 = class(TForm) Btt_DownLoadDir: TButton; IdFTP1: TIdFTP; B 阅读全文

摘要：DCC32參數2007-03-30 11:25用过DELPHI都应对DCC32有所耳闻了,它的参数翻译过来如下：DCC32參數它的編譯器參數如下： 选项 描述 Aunit=alias 设置单元别名 B 编译所有单元 CC 编译控制台程序 CG 编译图形界面程序 Ddefines 编译条件符号定义 Epath 可执行文件输出路径 Foffset 查找运行期间错误 GD 生成完整.Map文件 GP 生成.Map文件Public段 GS 生成.Map文件Segment段 H 输出提示信息 Ipaths 文件包含路径 J 生成.Obj目标文件 JP 生成C++类型.Obj目标文件 Kaddress S 阅读全文

摘要：使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数 这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv --------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class 阅读全文

摘要：一.要使用Codesite，需要引用csintf单元 二.CodeSite的基本方法 阅读全文

摘要：比如在一个窗体里有一个“取消”和“确定”按钮,“取消”按钮批次取消所有修改,“确定”按钮批次提交： 阅读全文

摘要：这种方法是响应了OnColumnClick和OnCompare这两个事件，其中在OnColumnClick中调用TListView中的CustomSort函数，并把此函数的第一个参数设为nil把OnCompare事件激活的。在OnCompare事件中，按照Delphi的例子，调用了CompareText函数进行排序，把CompareText的返回值赋给OnCompare事件函数的Compare参数达到排序的目标。为什么把CompareText的返回值赋给Compare就能达到排序目的我也不是很清楚，但我知道如果把进行升序或倒序的交替，就要把Compare取正数或取负数进行交替就可以了，这一点在 阅读全文