Delphi 字符串截取

截取://--------------------------------------------------------------------------------varstr1,str2:…

Delphi 字符串插入与删除

插入与删除://--------------------------------------------------------------------------------varstr1…

Delphi 自带大小写转换

大小写转换://--------------------------------------------------------------------------------varstr:…

Delphi 清除字符串两边空格或指定字符

清除两边空格或指定字符://---------------------------------------------------------------------------…

Delphi 字符串对比比较

字符串对比://--------------------------------------------------------------------------------varstr1…

Delphi 搜索字符串

搜索字符串://--------------------------------------------------------------------------------varstr:…

Delphi 字符串是否包含

是否包含:functionContains(constValue:s****ing):Boolean;functionStartsWith(constValue:s****ing):Boole…

Delphi 字符串适宽处理

适宽处理:functionPadLeft(TotalWidth:Integer):string;functionPadLeft(TotalWidth:Integer;PaddingChar:C…

Delphi 添加或解除引号

添加或解除引号:functionQuotedString:string;functionQuotedString(constQuoteChar:Char):string;function…

Delphi str1.Compare 比较两个字符是否相同

programProject1;{$APPTYPECONSOLE}{$R*.res}usesSystem.SysUtils;varstr1:string='a1232';str2:string='a1…

Delphi 阿拉伯数字转中文汉字数字

functionMoneyConvert2(mmje:real):WideString;constcNum:WideString='零一二三四五六七八九-万仟佰拾亿仟佰…

Delphi 如何快速读写文件中的字符串

constszChar=SizeOf(Char);//////savesastringtoafile///procedureStringToFile(consts:string;constFileNa…

Delphi 获取网址链接协议头

usesSystem.S****Utils;functionEx****actPathURLToCompleteURL(URL:s****ing):s****ing;varTemp:s****ing;…

Delphi 网址链接结尾自动补/

functionUrlAddSlash(URL:s****ing):s****ing;beginif(Copy(URL,length(URL),1)<>'/')thenResult:=…

Delphi 生成GUID算法的单元

unituGUID;{采用的开源算法https://github.com/martinusso/ulid加已改造成32位有序GUID}interfaceusesDateU…

Delphi 随机字符3

functionGeneratePassword(PasswordLength:Integer):string;varSourceString:String;ExcludeString:String;…

Delphi 10.3 处理CSV TStreamReader 自带Split用法

测试文件：animals.csv"NAME","SIZE","WEIGHT","AREA""AngelFish",2,2,"ComputerAquariums""Boa",10,8,"Sou…

Delphi 将整数转换为罗马数字（字符串）2

uRomanNumerals.pasunituRomanNumerals;interfaceusesSystem.SysUtils;typeTRomanNumRange=0..3999;{TRoman…

Delphi 将整数转换为罗马数字

//数字转换罗马functionToRoman(constiArabic:Integer):String;const//S5は5*10^nを表すシンボル,S1は1*10^…

Delphi 最简单的判断数字函数

functionIsDigit(ch:char):boolean;beginResult:=chin['0'..'9'];end;