截取://--------------------------------------------------------------------------------varstr1,str2:…
插入与删除://--------------------------------------------------------------------------------varstr1…
大小写转换://--------------------------------------------------------------------------------varstr:…
清除两边空格或指定字符://---------------------------------------------------------------------------…
字符串对比://--------------------------------------------------------------------------------varstr1…
搜索字符串://--------------------------------------------------------------------------------varstr:…
是否包含:functionContains(constValue:s****ing):Boolean;functionStartsWith(constValue:s****ing):Boole…
适宽处理:functionPadLeft(TotalWidth:Integer):string;functionPadLeft(TotalWidth:Integer;PaddingChar:C…
添加或解除引号:functionQuotedString:string;functionQuotedString(constQuoteChar:Char):string;function…
programProject1;{$APPTYPECONSOLE}{$R*.res}usesSystem.SysUtils;varstr1:string='a1232';str2:string='a1…
functionMoneyConvert2(mmje:real):WideString;constcNum:WideString='零一二三四五六七八九-万仟佰拾亿仟佰…
constszChar=SizeOf(Char);//////savesastringtoafile///procedureStringToFile(consts:string;constFileNa…
usesSystem.S****Utils;functionEx****actPathURLToCompleteURL(URL:s****ing):s****ing;varTemp:s****ing;…
functionUrlAddSlash(URL:s****ing):s****ing;beginif(Copy(URL,length(URL),1)<>'/')thenResult:=…
unituGUID;{采用的开源算法https://github.com/martinusso/ulid加已改造成32位有序GUID}interfaceusesDateU…
functionGeneratePassword(PasswordLength:Integer):string;varSourceString:String;ExcludeString:String;…
测试文件:animals.csv"NAME","SIZE","WEIGHT","AREA""AngelFish",2,2,"ComputerAquariums""Boa",10,8,"Sou…
uRomanNumerals.pasunituRomanNumerals;interfaceusesSystem.SysUtils;typeTRomanNumRange=0..3999;{TRoman…
//数字转换罗马functionToRoman(constiArabic:Integer):String;const//S5は5*10^nを表すシンボル,S1は1*10^…
functionIsDigit(ch:char):boolean;beginResult:=chin['0'..'9'];end;