随笔分类 -  Delphi

Delphi轉載資源
摘要:验证数字的正则表达式集 验证数字:^[0-9]*$验证n位的数字:^\d{n}$验证至少n位数字:^\d{n,}$验证m-n位的数字:^\d{m,n}$验证零和非零开头的数字:^(0|[1-9][0-9]*)$验证有两位小数的正实数:^[0-9]+(.[0-9]{2})?$验证有1-3位小数的正实数... 阅读全文
posted @ 2014-08-22 16:54 Convert 阅读(209) 评论(0) 推荐(0)
摘要:1 VK_LBUTTON = 1; 2 VK_RBUTTON = 2; 3 VK_CANCEL = 3; 4 VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON } 5 VK_BACK = 8; 6 VK_TAB = 9; ... 阅读全文
posted @ 2014-08-05 12:24 Convert 阅读(450) 评论(0) 推荐(0)
摘要:1:定义流的header , OleContainer要求流中要有Headertype//流Header的结构TStreamHeader = recordSignature: Integer; //$434F4442DrawAspect: Integer; //1DataSize: Integer;... 阅读全文
posted @ 2014-06-13 12:44 Convert 阅读(4883) 评论(0) 推荐(0)
摘要:1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 s:string; 4 i,j,k:integer; 5 arr:Array of array of array of string; 6 lst:TStringList; 7 be... 阅读全文
posted @ 2014-06-04 19:45 Convert 阅读(347) 评论(0) 推荐(0)
摘要:相关知识内容: 在对文本文件进行任何处理之前,首先要打开此文本文件。声明变量:通过此变量可以来引用一个文本文件。 打开一个文件需要两步:首先是 AssignFile(),它可以将文件变量与一个文件关联起来。例如:这时,你可以进行第二步:打开文件。有三种方式打开文件:使用Rewrite()过程创建并打... 阅读全文
posted @ 2014-06-03 17:47 Convert 阅读(1223) 评论(0) 推荐(0)
摘要:在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别:ExtractFilePath 传回值的最後一个字元是反斜杠“/”。ShowMessage(ExtractFileDir(Application.Exe... 阅读全文
posted @ 2014-05-31 18:49 Convert 阅读(391) 评论(0) 推荐(0)
摘要:转自上帝的鱼--专栏 cdsn个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前... 阅读全文
posted @ 2014-05-30 14:41 Convert 阅读(383) 评论(0) 推荐(0)
摘要:一、使用步骤:A)、将CheckMem.pas单元加入到工程中B)、修改工程文件,将'CheckMem.pas'放到uses下的第一句program Project1;usesCheckMem in 'CheckMem.pas',Forms,Unit1 in 'Unit1.pas' {Form1} ;//其他单元文件{$R *.RES}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;end.C)、正常的编译、运行应用程序D)、退出应 阅读全文
posted @ 2013-08-27 15:18 Convert 阅读(434) 评论(1) 推荐(0)
摘要:uses StrUtils;【字符串函数大全】首部 function AnsiResemblesText(const AText, AOther: string): Boolean;$[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Ed 阅读全文
posted @ 2013-06-01 14:47 Convert 阅读(615) 评论(0) 推荐(0)
摘要:delphi的构造函数的定义是:constructor create;delphi的析构函数的定义是:destructor destroy;析构函数是不能重载的,但是构造函数是可以重载的。构造函数在重载的时候要在后面加“overload”,例如:constructor create;overload;constructor create(i:integer);overload;注意,只有两个构造函数以上才叫重载,只有一个就不用“overload;”了。默认的构造函数是:constructor create; 如果有重载的话,那么默认的构造函数后面也要加overload,正象上面的例子一样。de 阅读全文
posted @ 2013-05-27 18:26 Convert 阅读(5582) 评论(0) 推荐(0)
摘要:程序里放上了这个之后Delphi在编译时就会自动使用Xp里面最新的共用控见,那样的话你的程序就支持Xp主题了,当然,这个只在Xp下有效,因为Xp以外的Windows没有支持Xp特效的共用控见。TXPManifest源代码中最重要的那句是: {$WEAKPACKAGEUNIT ON} 和 {$R WindowsXP.res} 前面那句是告诉编译器使用Xp的共用控见,后面那句指令编译器包含支持Xp特效必要的资源,如果你在你自己的代码中加入上面两句,就算不添加TXPManifest你的程序依然支持Xp特效(在Xp下)。 阅读全文
posted @ 2013-05-08 16:44 Convert 阅读(885) 评论(0) 推荐(0)