//获得汉字字符个数function ChineseWordsCount(text:string):Integer;var i,sum,e,c,t: Integer;begin Result:=0; c := 0; sum := Length(text); if Sum=0 then exit; f...
分类：
其他好文 时间：
2014-07-29 21:14:32
阅读次数：
211
添加规则$.extend($.fn.validatebox.defaults.rules, { requireRadio: { validator: function(value, param){ var input = $(...
分类：
其他好文 时间：
2014-07-29 21:09:02
阅读次数：
943
function ReverseString(s: string): string;var i: integer; s1:string;begin s1 := ''; for i := 1 to Length(s) do s1 := s[i] + s1; Result:=s1;end;procedu...
分类：
其他好文 时间：
2014-07-29 21:05:32
阅读次数：
197
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;//定义类型要与原函数一样function GetUserDefau...
分类：
其他好文 时间：
2014-07-29 21:04:32
阅读次数：
253
C:\Users\ADMINI~1\AppData\Local\Temp\ //GetTempPath获得临时文件目录(Temp文件夹) function TempPath:String;vartmp:array [0..MAX_PATH] of Char;beginGetTempPath(MAX_...
分类：
其他好文 时间：
2014-07-29 21:01:32
阅读次数：
252
Dll的创建与调用 File ->New->Other->Dll Wizard
DLL的创建
//可以将本代码复制粘贴到项目中
library Project1; uses SysUtils, Classes, Windows, Forms; {$R *.res} function Min(x,y:...
分类：
其他好文 时间：
2014-07-29 20:58:32
阅读次数：
227
{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}function StartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s);if s>=60 ...
分类：
其他好文 时间：
2014-07-29 20:46:32
阅读次数：
178
//判断文件是否正在被使用function FileINUse(filename:String):boolean;varusein:file;beginresult:=false;assignfile(usein,FileName);tryreset(Usein);excepton E:EInOut...
分类：
其他好文 时间：
2014-07-29 20:45:52
阅读次数：
180
对文件和文件夹都有效FileSetAttr('D:\Administrator\Desktop\patcher\Win32\Release\config\element\update',faHidden);声明：function FileSetAttr ( const FileName : stri...
分类：
其他好文 时间：
2014-07-29 20:43:52
阅读次数：
234
uses Jpeg;function BMPtoJPG(var BMPpic, JPGpic: string): boolean;var Bitmap: TBitmap; JpegImg: TJpegImage;begin result := False; Bitmap := TBitmap.Cre...
分类：
其他好文 时间：
2014-07-29 20:42:42
阅读次数：
177
