//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=****ue;end;ByteType字符串中判断是否英文ByteType('123你好吗',...

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=true;end;ByteType字符串中判断是否英文ByteType('123你好吗',...

//根据网络链接获取域名usess****utils;functionEx****actUrlDomain(constUrl:s****ing):s****ing;var//QQ282548160感谢提供s****A:S****ing;s****B:S****ing;iTmp:Integer;iA:Integer;begins****A:=****im(Url);s**…

functionGetFileNameFromURL(url:string):string;varts:TStrings;begin//从url取得文件名ts:=TStringList.create;tryts.Delimiter:='/';ts.DelimitedText:=url;ifts.Count>0thenResult:=ts[ts.Count-1];finallyts.Fr…

///半角转全角的函数functionToSDB(AInput:Widestring):WideString;varI:Integer;nChar:Cardinal;beginResult:=AInput;forI:=1toLength(AInput)dobeginnChar:=Cardinal(WideChar(AInput[I]));ifnChar=32thenbeginRes…

procedureTForm1.btn1Click(Sender:TObject);vari:integer;s:string;beginfori:=0tomemo1.Lines.Count-1do//循环Memo表的所有行begins:=memo1.Lines[i];//用S变量才暂时存储这个量，最后一步恢复用memo1.Lines.Delet…

//SysUtils.LastDelimiter声明：functionLastDelimiter(constDelimiters,Source:string):Integer;描述：LastDelimiter函数查找在Source字符串中Delimiter集合中任一字符最后出现的位置。如果找到...

中文转unicode说白了就是将单个字符，例如：“网页”的页字用Ord函数转成10进制数字，再转为16进制数据。就这样。其实，用系统的计算器，科学型计算，也可以计算出来。//Char类型与其编码值的转换:varb:Byte;c:Char;…

delphi返回一个汉字的Unicode编码

发现经常需要这个函数，每次都要翻找以前的工程文件，遂发上来方便以后索引。functionSplit(constSource,Delimiter:String):SArray;variCount,iPos,iLength:Integer;sTemp:String;aSplit:SArray;beginsTemp:=Source;…

仅作记录，方便复用。适合以下格式的类型处理<pstyle="box-sizing:border-box;margin-top:0px;margin-bottom:0px;padding:0px;word-wrap:break-word;word-break:normal;color:#454545;font-family:"PingFangSC","Mic…

Delphi的几种类型转换unitSupport;interfacetypedword=longword;functionWordToStr(Value:word):string;functionDwordToStr(Value:dword):string;functionStrToWord(Value:string):word;functionStrToDword(Value:st…

{*------------------------------------------------金额大小写转换函数@author王云盼@versionV1506.01在delphi7测试OK-------------------------------------------------}unitUnTranRMB;//主要是考虑数字的小数部…

今天偶尔要做的Delphi程序,其中涉及到了字符串处理,里面有一个功能类似于VB里的split()函数的功能,于是查了很久才查到些资料,现将这些资料整理一下,方便大家.首先是一个网友自己编的函数.实现了和split()函数的功能.…

Delphi中的字符串一、Delphi2009之前的字符串（不支持Unicode）：Delphi2009之前的字符串分为3种：ShortString、AnsiString、WideString。【ShortString】ShortString是一种比较古老的Pascal字符串格式，它最多只能容…

最新说明：该功能可以直接用系统自带的SUBSTR()函数实现。附上SubStr()的定义：functionSubStr(psInput:String;BeginPlace,CutLeng:Integer):String;{*返回psInput从位置BeginPlace开始切取长度为CatLeng字符串}uses…

QString新增了UrlEncode函数，优化了性能，速度比官方的版本快一点，更重要的是可以ANSI和UTF8编码，或者是自己喜欢的编码都行。functionUrlEncode(constABytes:PByte;l:Integer;ASpacesAsPlus:Boolean):QStringW;ov…

Delphi在面对跨平台开发，程序语言也改进不少，不过有些改进，让原本Delphi开发者有些不适应，最显注的就是字串处理函数了，原本Pascal语言字串起始由1开始，几乎是它的经典了，新版本字串由0开始，这个改变，让很多…

delphi判断文件名是否合法，判断文件名路径是否合法：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,S****C****ls;typeT****1=class(T****)Button1:TButto…

Delphi7的版本：functionTForm1.IsChineseString(s:WideString):Boolean;vari,j:Integer;begin//输入必须是纯汉字串result:=True;fori:=1toLength(s)dobeginj:=Ord(s[i]);if(j40869)thenbegin&nbs...