摘要： 存在下面的一个类//******定义部分*********type TTest = class(TObject) protected tNum:Integer; tStr:string; public constructor Create(Num:Integer;Str:string); destructor Destroy; procedure Free; property Num:Integer read tNum; property Str:string read tStr; function GetRnd:string; end;//*******实现部分**********{ T 阅读全文

摘要： 自己时长会用的几个关于正则的函数、在这里存一份、、、{ 测试字符串 参数列表 Subject 等待测试的字符串 getIndex 获取的分组下标(可指定多个) RegEx 正则匹配式 Results 返回符合表达式的字符串列表 Result 测试是否成功 **************************************** eg: var s:TStringList; begin if RegTest('a href="/miniportal/static/album/22/album_54122_1.html" mce_href="miniportal/static/al 阅读全文

摘要： 有时候为了测试正则表达式、临时自己写了这么一个、我对于JS也不懂、所以写的很差、、代码：（我测试在IE8中是正常的、然而在我的FireFox中的、却无法使用、原因不明、这个我也不管了、反正就自己用用而已）HTMLHEADTitle正则表达式测试工具——JavaScriptRegExp引擎/TitleMETAhttp-equiv="Content-Type"content="text/html;charset=gb2312"METAname="Generator"content="AspStudio1.0"/HEADBODYonKeyDown=ChkTest(eve 阅读全文

摘要： 原来这个是delphi的、我翻译了一下、我感觉还是不错的、唯一的问题是不支持中文、不过没关系、反正我从来我对中文字符串加密的、加密函数Private Function EncrypStr(ByVal Src As String, _ Optional ByVal Key As String = "ForDream") As String '//对字符串加密(Src:源 Key:密匙) Dim KeyLen As Long Dim KeyPos As Long Dim offset As Long Dim dest As String Dim SrcPos As Long Dim SrcAsc 阅读全文

摘要： 本来想采用xmlhttp的、不过这个呢好像设置来源有点问题、所以就换了我比较不熟悉的inet组件（很久不用VB、其实VB也不太熟悉啦、哈哈）、废话不多说、直接贴代码：(有点乱、见谅吧)Option ExplicitPrivate State(4) As LongPrivate ByteCounter As LongPrivate ByteBuffer(63) As BytePrivate Type TGUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Declare 阅读全文

摘要： 第一次注释掉Lv1的循环、运行Lv2的代码、第二次注释掉Lv2的循环、运行Lv1的代码、具体运行速度、完全不用计时、显而易见、在我的电脑上、Virtual ListView的速度几乎是一瞬间就好了不过蛮奇怪的、我又用VB做了下实验、VB的ListView是ActiveX的、在IDE下添加100000条记录、速度也蛮快的、大概在我的电脑上是2.5s左右、这是IDE下的速度、如果是生成EXE再运行应该是可以在1s以内的、这个速度远远大于Delphi中的Vcl ListView....看来这个效率损耗在VCL里挺大的、、仅以此做记录、以后不要忘记了ListView的这种用法、、unit Unit1; 阅读全文

摘要： 没什么技术含量、无聊弄的、D2010 + Windows7下没有问题实际上就一个函数而已、在执行的时候可能会程序程序假死以及网络被大量占用的情况、此时不要结束程序、等待运行完毕后即正常（如果很在意程序的假死、可以先不要显示listview、全部获取完毕后再次显示listview、就不会假死了）procedure TForm1.FormCreate(Sender: TObject);var nLoop,i:Cardinal; Html,gMail:string; Reg,RegSp,RegMail:TPerlRegEx; aLinker:string;begin Self.Show; 阅读全文

摘要： 2010-08-12 10:56:24Made By ForDream一个简单的小工具、主要是用了正则表达式、没什么技术含量、代码贴出来、记录一下、双击可以下载、右键可以进行搜索、速度还不错unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdHTTP, ComCtrls, PerlRegEx, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, She 阅读全文

摘要： 程序本身就不多说了、应用很基础、代码里的注释也比较详细、、而且基本是使用api完成、所以改VB/VC++等都是很容易的至此、也基本了解了扫雷程序的工作原理（猜测）1.随机产生列阵、等待用户2.判断用户首次左键单击位置是否为雷区、如果不是则继续、若是的话、重新排列列阵、让用户首次单击区域不为雷区（我猜想是为了不让游戏这么快的结束）3.一旦首次判断完成、列阵则已经被确定、不再更改4.扫雷程序界面上提示的数字、预先并没有生成、只是在用户将要把他翻开时判断四周9个点、才显示出来的、“自动完成”部分我没写完、应该是坐标的判断有点问题、也就不弄了、有兴趣的同学可以参考重写（照着我这个修改可能比你重写还难） 阅读全文

摘要： 第一帖测试下CSDN的效果、copy一份网络上的东西看看效果、、typeTForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject);private { Private declarations } aatom:atom; procedure hotkey(var msg:tmessage);message wm_hotkey; //定义全局热键消息事件public { Public declarations }end;var 阅读全文