函数类型： 自定义函数函数说明： 根据字符串属性名修改控件属性值代码如下： procedure Change_OBJPropValue(o: TObject; propName: string; newValue: Variant);
va...
函数类型： 自定义函数函数说明： 动态注册OCX代码如下： function RegisterOCX(FileName: string): Boolean;
var
OCXHand: THandle;
RegFunc...
函数类型： 自定义函数函数说明： 获取指定目录及子目录中所有指定格式文件列表代码如下： // 查找所有文件及子目录中符合条件的文档
procedure FindFiles(APath, AFileName: string; var File...
函数类型： 自定义函数函数说明： 获取指定目录中所有子目录 或指定格式文件名称列表代码如下： // 搜索多扩展名时以path+'*.jpg;*.jpeg;*.gif;*.png;*.bmp;*.tiff;*.emf'
fun...
函数类型： 自定义函数函数说明： 删除一个目录代码如下： procedure DelDir(Dir: string);
var
shFileOpStruct: TSHFileOpStruct;
begin
with ...
函数类型： 自定义函数函数说明： 取得执行文件所在目录代码如下： function GetAppPath: string;
begin
Result := ExtractFilePath(Application.ExeN...
函数类型： 自定义函数函数说明： 取到季度的起止日期代码如下： function GetJiDuDate(dd: TDateTime): TDateArray;
var
Y, M: Word;
begin
Y := ...
函数类型： 自定义函数函数说明： 取得中文周几（星期）代码如下： function WeekDay(const CuDate: TDateTime): string;
begin
Result := Copy('日一二三四五六', Da...
函数类型： 自定义函数函数说明： 判断闰年还是平年代码如下： function dateLeapYear(D: TDateTime): Boolean;
var
Year, Month, Day: Word;
begin...
函数类型： 自定义函数函数说明： 图片格式大小处理代码如下： function FormatMyImage(FileName: string; FImageWidth: Integer)
: TMemoryStream;...
函数类型： 自定义函数函数说明： 设定系日期格式代码如下： procedure SetSysDateFormat(s: string);
begin
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE...
函数类型： 自定义函数函数说明： 取得当前系统的短日期格式代码如下： function GetsysDateFormat: string;
var
sgs: string;
begin
SetLength(sgs, ...
函数类型： 自定义函数函数说明： 关联文件与指定程序代码如下： procedure RegisterFileType(cMyExt, cMyFileType, cMyDescription, ExeName: string;
IcoIn...
函数类型： 自定义函数函数说明： 日期转字符串代码如下： function GetDateStr(myd: TDateTime = 0): string;
begin
Result := FormatDateTime('yyyy-MM-d...
函数类型： 自定义函数函数说明： 在IE中打开代码如下： procedure OpenInIE(url: string);
var
IE: OleVariant;
begin
IE := CreateOleObject('Inter...
function GetApplicationVersion: string; //取得程序版本号
var
FileName: string;
InfoSize, Wnd: DWORD;
VerBuf: Pointer;
...
function HexToInt(const HexValue: string): Integer;
begin
Val('$' + HexValue, Result, Result);
end;
功能： 查询是否包含中文字符 function IsChina(S: string): Boolean;
var
pStr: PWideChar;
function HexToInt(const HexValue: s...
