自定义函数
qq_33577118
这个作者很懒,什么都没留下…
展开
-
改写min函数,让它支持NAN空缺值的比对
【代码】改写min函数,让它支持NAN空缺值的比对。原创 2023-03-15 18:21:39 · 70 阅读 · 0 评论 -
type 自定义结构体中的single填充nan空缺值
type 自定义结构体中的single填充nan空缺值原创 2023-03-10 16:02:09 · 64 阅读 · 0 评论 -
Cross函数,通过Variant体自动区分传入的是数组还是数字类型CROSS(A,0,2)
Cross函数,通过Variant体自动区分传入的是数组还是数字类型CROSS(A,0,2)原创 2023-03-10 15:56:09 · 81 阅读 · 0 评论 -
Delphi 计算一个字符串在另一个字符串中出现的次数
Delphi 计算一个字符串在另一个字符串中出现的次数原创 2023-02-20 10:28:26 · 358 阅读 · 0 评论 -
TStringList 根据自定义排序
TStringList 根据自定义排序原创 2023-02-06 18:25:25 · 96 阅读 · 0 评论 -
Delphi判断文件大小
Delphi判断文件大小原创 2022-05-01 11:15:56 · 283 阅读 · 0 评论 -
Delphi-创建虚拟桌面(CreateDesktop)
unit NewDesktop;interface uses Windows, Messages, SysUtils, Classes, WinSvc, SvcMgr;function CreateANewDesktop(DesktopName: string): Boolean;procedure DesktopSwitch(DesktopName: String='default');// 切换桌面 //系统默认桌面DesktopName:='default';implementati原创 2020-06-27 18:14:17 · 546 阅读 · 0 评论 -
Delphi- GetTickCount 间隔50秒执行一次
varstartTime: Cardinal;begin try startTime := GetTickCount; while True do begin if((GetTickCount - startTime)/1000 )>=50 //间隔50秒执行一次 then begin startTime:= GetTickCount; //执行内容 end; end; ex原创 2020-06-25 23:28:24 · 493 阅读 · 0 评论 -
delphi-创建路径中的所有文件夹
fileName :=(ExtractFilePath(paramstr(0))); fileName :=fileName + 'A\B\C.TXT'; if not DirectoryExists(ExtractFileDir(fileName)) then ForceDirectories(ExtractFileDir(fileName)); //如ABC文件夹都不存在,则全部创建原创 2020-05-31 17:09:15 · 353 阅读 · 0 评论 -
delphi-删除文件夹
//删除文件夹 procedure DeleteDirectory(const Name: string);var F: TSearchRec;begin if FindFirst(Name + '\*', faAnyFile, F) = 0 then begin try repeat if (F.Attr and faDirectory <> 0) then begin if (F.Name <> '.') an原创 2020-05-31 17:04:13 · 586 阅读 · 0 评论 -
delphi-日期转换 加减调用
(日期转换 加减调用)//日期转换 加减调用 如果出错这返回 1009,01,01function MyStrToDateDef(const str:string):TDateTime;var y,m,d:Word; defValue:TDateTime;begin defValue:=EncodeDate(1009,01,01); if Length(str)<>6 then Result := defValue; y := StrToIntDef(leftStr(原创 2020-05-31 17:00:49 · 269 阅读 · 0 评论