delphi 判断是否是Hash

functionIsHash(Hash:String):boolean;vari:integer;beginResult:=false;ifHash=''thenexit;ifLength(Hash)…

delph 自带URL编码函数 TNetEncoding

USESNetEncoding;procedureTForm1.FormCreate(Sender:TObject);<pstyle="overflow:visible;margin-top:0px;…

delphi 判断指定字符串是否开头 StartsText用法

varURL:=edtAddress.Text;ifnotStartsText('http',URL)then//判断是否是http开头，如果不是则beginURL:='ht…

delphi 检查字符串是不是 包含 中文和获取中文字符个数

functionIsChineseText(constAStr:{$IFDEFUNICODE}string{$ELSE}WideString{$ENDIF};constOutCharecterCoun…

Delphi IPNumberIPV4

unitUnit5;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

Delphi 提取标签之间的字符串（重复标签）

Delphi提取标签之间的字符串（重复标签）函数类型：自定义函数函数说明：提取标签之间的字符串（重复标签）…

delphi 中 unicode 转汉字 函数

近期用到这个函数，无奈没有找到delphi自带的，网上找了下有类似的，没有现成的，我需要的是支持“\u4f00”…

Delphi 为数字补充前缀0

标准的Format函数可以做同样的事情！Format（'％。10d'，[15]）将返回'0000000015'或者：functionAddLeadin…

Delphi HTML转义

functionS****ipHTMLTags(consts****HTML:s****ing):s****ing;beginResult:=s****HTML;****convertsystemch…

Delphi 如何从html格式的字符串中提取纯文本？

functionStripHTMLTags(conststrHTML:string):string;varP:PChar;InTag:Boolean;i,intResultLength:Integer…

Delphi 实现PHP的URLEncode编码效果

functionURLEncode(constaData:AnsiString):AnsiString;constChars:Array[0..18]ofAnsiChar=(#$25,#$21,#$2…

Delphi 如何从URL提取文件名？

//1functionExtractUrlFileName(constAUrl:string):string;varI:Integer;beginI:=LastDelimiter('\:/',AUrl…

Delphi 如何解析网址？

演示：unitUnit3;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.C…

Delphi 验证IP地址

//有点老旧了，就当是学习了functionIsIPaddr(IP:string):Boolean;varNode:array[0..3]ofInteger;tIP:strin…

Delphi 逐个分解后字符串加载到StringGrid1

procedureT****1.sEdit1Change(Sender:T****);procedureT****1.sEdit1Change(Sender:T****);vari:integer;s…

Delphi里面判断一个字符串在另一个字符串中出现的次数

functionSubStrConut(mStr:string;mSub:string):Integer;{返回子字符串出现的次数}beginResult:=(Length(mS…

Delphi 2009 查看所有 Unicode 字符

代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,D…

Delphi 2009 之 TStringBuilder 类[3]: Replace

Delphi2009之TStringBuilder类[3]:ReplaceunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Cla…

Delphi 2009 中 string 与 Char 的改变

在Delphi2009中:string=UnicodeString;(同样:PString=PUnicodeString;)Char=WideChar;(同样:PChar=PWideCha…

Delphi 2009 新增单元 Character IsLetter、IsUpper、IsLower、IsDigit、IsNumber

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…