Delphi 从字符串中提取数字
摘要：function GetNumberFromStr(strIn: string; sFlag: string): string; var i: Integer; tempStr: string; begin tempStr := ''; if Length(strIn) = 0 then begin
阅读全文
posted @ 2022-09-28 09:00
随笔分类 - Delphi 3.封装函数
Delphi 内存流与字符串之间互相转换
摘要：测试程序的时候，急需要查看内存流中的内容，有了互传函数就方便的多。
阅读全文
posted @ 2022-08-23 18:59
Delphi 十六进制，十进制，字符串之间的类型转换
摘要：直接封装类型转换函数，加快平时编程的速度。
阅读全文
posted @ 2022-08-23 13:28
Delphi 获取程序运行路径函数GetSelfPath
摘要：function GetSelfPath: string; var ModuleName: string; i: Integer; begin SetLength(ModuleName, 255); GetModuleFileName(HInstance, PChar(ModuleName), Le
阅读全文
posted @ 2022-08-11 17:26
Delphi 开机自动启动函数SetAutoRun
摘要：转载自：https://blog.csdn.net/listest/article/details/121272294 procedure SetAutoRun(isRun: Boolean); var oAutoRunRegister: TRegistry; begin oAutoRunRegis
阅读全文
posted @ 2022-08-11 17:25
Delphi 设置时间格式函数SetSysDateFormat
摘要：转载自：https://blog.csdn.net/Listest/article/details/122942761 在时间转字符串的时候特别好用，有的系统的时间格式不一样， 产生的字符串也不一样，我们处理字符串的时候可能会出错， 直接给他统一一种格式，免去手动去设置的痛苦 procedure S
阅读全文
posted @ 2022-08-11 17:25
Delphi 生成随机汉字函数GenerateChineseWords
摘要：根据c#改编而来，很多年了。 function GenerateChineseWords(count: integer): string; var i: integer; regionCode, positionCode: integer; regionCode_Machine, positionC
阅读全文
posted @ 2022-08-11 17:23
Delphi 生成随机字符串函数RandomStr
摘要：可以生成自定义长度的随机字符串，字符串可以是大小写字母、数字或者是他们的混合。 function RandomStr(StrLength: Integer; Lowercase: Boolean = True; Number: Boolean = True; Uppercase: Boolean =
阅读全文
posted @ 2022-08-11 17:22
Delphi 更改扩展名函数ChangeFileExt
摘要：function ChangeFileExt(const FileName, Extension: string): string; var I: Integer; begin I := LastDelimiter('.' + PathDelim + DriveDelim,Filename); if
阅读全文
posted @ 2022-08-11 17:18
