chinajobs的专栏

//=====================================================================// 函数名称: FindPathFiles// 功能描述: 找指定目录下的文件// 参    数:  APath   : 路径名称//            APropty : 属性名称(*.* | *.txt)//          

使用这种功能必须使用 OnKeyPress 事件，该事件是在窗体中获得键盘输入的焦点，并且在用户按键时发生。OnKeyPress 事件中有个重要参数：Key。Key 参数为Char 型，它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字，且只能输入一个小数点，按下其他键时无效。1 procedure TForm1.Edit1KeyPress(Sender: TO

unit untArith;interfaceuses  Windows, SysUtils, Variants, Classes;type  MD5Count = array[0..1] of DWORD;  MD5State = array[0..3] of DWORD;  MD5Block = array[0..15] of DWORD;

取50－100randomize; i:=random(50)+50;

//根据网络链接获取域名 uses strutils;function ExtractUrlDomain(const Url: string): string;var  //QQ282548160 感谢提供  strA:String;  strB:String;  iTmp:Integer;  iA:Integer;begin  strA:=Trim(Url);

应部分网友要求，公开 myfunctions 单元，里面有很多有用的函数unit myFunctions;//---------- 说明--------------// by 冯思锐 最后修改2010-11-23// QQ: fengsirui@sina.com// 部分代码来自互联网，大部分为自己所写// 博客：http://blog.sina.com.cn/fsr200

function TrackMatchs(strText: string;                     strExp : string;                     Matchs : TStrings=nil;                     bMS    : Boolean=false;                     bMG    : B