Delphi 删除指定字符串的所有实例

functionhtmlEncode(s:s****ing):s****ing;vari:integer;p:s****ing;fs:TfastS****ingAppend;beginfs:=Tfas…

Delphi 链接获取主站地址

//获取主站地址；functiongetSite(url:string):string;vardir,s:string;p:integer;begins:=url;p:=pos('/',…

Delphi 链接转换为本地文件路径

//链接转换为本地文件路径functionurl2file(url:string):string;varp,i:integer;s,dir,fullDir:string;//fo…

Delphi TStringList 自带 split 用法

procedureTForm1.Button4Click(Sender:TObject);varsplit:TStringList;beginsplit:=TStringList.Create;spl…

Delphi 收集了比较全的字符串进制转换

functionRightStr(ConstStr:String;Size:Word):String;beginifSize>Length(Str)thenSize:=Length(Str);Righ…

Delphi 将Strings合并成一个逗号分隔的字符串,用于SQL

//将Strings合并成一个逗号分隔的字符串,用于SQLfunctionGetStrFromStrings(tmpItems:TStrings):String;var…

Delphi下的纯Pascal的十六进制转十进制

Delphi下的纯Pascal的十六进制转十进制作者:小坏FunctionS****LenA(S****:PAnsiChar):Integer;BeginResult:…

Delphi 根据分割符只取最后的值

functionGetCharS****(chars****,s****:s****ing):s****ing;varts:TS****ings;begin//从url取得文件名ts:=T…

Delphi 强迫将半型英数字转换成全型英数字

varChr:array[0..255]ofchar;begin//useWindowsLCMapString(GetUserDefaultLCID(),LCMAP_FULLWIDTH,//转换全…

DELPHI格式化输出函数

FORMAT()vars:string;begin//指令类型types:=Format('最大整数是:%d;最小整数是:%d',[MaxInt,Low(Integer)]…

Delphi Split 方法使用

procedureSplit(constText:string;Delimiter:Char;List:TStrings);varStart,Index:Integer;beginList.Begin…

Delphi 截取字符串的用法

functionParse(text,sol,sag:string):String;beginDelete(text,1,Pos(sol,text)+Length(sol)-1);Result:=Co…

Delphi 判断字符串是否是单词

functionIsEnglishWord(strWord:string):Boolean;vari:Integer;beginResult:=True;fori:=1toLength(strWord…

Delphi 将字符串转换为C-escape转义字符串格式

const//Specialsymbols_TAB_=#9;_CR_=#13;_NL_=#10;_DELIM_=':;.,+-<>/*%^=()[]|&~@#\`{}'+_TAB_;_SPAC…

Delphi 生成指定范围和个数的不重复的随机整数

生成指定范围内的随机数，有相应的随机函数（如RandomRange(x,y)可生成x常规思路一般来说，要生成n个不重复…

Delphi字符串深入学习

闲来无事，又开始扒拉起Delphi的源码，这次发现一个比较有意思的函数StringCodePage，作用是返回传入字符串…

Delphi System.Masks.MatchesMask 简单的正则用法

usesSystem.Masks;procedureTForm1.Button1Click(Sender:TObject);beginifSystem.Masks.MatchesMask(Edit1.…

Delphi IntToHex 查看字符的十六进制值

procedureTForm1.Button1Click(Sender:TObject);vari:Integer;beginLabel1.Caption:='';fori:=1toLength(Ed…

Delphi 二进制值转换十六进制 BinToHex和HexToBin

//本示例的目的是说明Classes单元中的BinToHex和HexToBin方法。此代码会将二进制值转换为其十六进制表示形式…

Delphi 16 进制转换为 10进制

functionHexToDec(constAHexString:String):Integer;begin//16进制转换为10进制；Result:=StrToInt('$'+AHe…