RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串

delphi 判断字符是否是汉字,ByteType字符串中判断是否英文

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=true;end;ByteType字符串中判断是否英文ByteType('123你好吗',...
类别:字符串 标签: 作者:admin 日期:2018-01-03 23.14.28

delphi根据网络链接截取域名

//根据网络链接获取域名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**…
类别:字符串 标签: 作者:admin 日期:2018-01-03 22.20.44

delphi 从URL地址中获得文件名

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…
类别:字符串 标签: 作者:admin 日期:2018-01-03 22.07.19

delphi 如何将字符串中的半角字符转换为全角字符

///半角转全角的函数functionToSDB(AInput:Widestring):WideString;varI:Integer;nChar:Cardinal;beginResult:=AInput;forI:=1toLength(AInput)dobeginnChar:=Cardinal(WideChar(AInput[I]));ifnChar=32thenbeginRes…
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.21.01

delphi Memo 过滤重复字符 IndexOf

procedureTForm1.btn1Click(Sender:TObject);vari:integer;s:string;beginfori:=0tomemo1.Lines.Count-1do//循环Memo表的所有行begins:=memo1.Lines[i];//用S变量才暂时存储这个量,最后一步恢复用memo1.Lines.Delet…
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.13.08

delphi LastDelimiter:在字符串中查找选定的字符最后出现的位置

//SysUtils.LastDelimiter声明:functionLastDelimiter(constDelimiters,Source:string):Integer;描述:LastDelimiter函数查找在Source字符串中Delimiter集合中任一字符最后出现的位置。如果找到...
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.11.04

Delphi ord chr byte等转换

中文转unicode说白了就是将单个字符,例如:“网页”的页字用Ord函数转成10进制数字,再转为16进制数据。就这样。其实,用系统的计算器,科学型计算,也可以计算出来。//Char类型与其编码值的转换:varb:Byte;c:Char;…
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.07.34

delphi返回一个汉字的Unicode编码

delphi返回一个汉字的Unicode编码
类别:字符串 标签: 作者:admin 日期:2018-01-02 14.49.34

Delphi根据字符分割字串成数组

发现经常需要这个函数,每次都要翻找以前的工程文件,遂发上来方便以后索引。functionSplit(constSource,Delimiter:String):SArray;variCount,iPos,iLength:Integer;sTemp:String;aSplit:SArray;beginsTemp:=Source;…
类别:字符串 标签: 作者:admin 日期:2018-01-02 11.51.22

Delphi 正则提取TXT中的Email 数据

仅作记录,方便复用。适合以下格式的类型处理<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…
类别:字符串 标签: 作者:admin 日期:2018-01-02 11.48.51

Delphi的几种类型转换

Delphi的几种类型转换unitSupport;interfacetypedword=longword;functionWordToStr(Value:word):string;functionDwordToStr(Value:dword):string;functionStrToWord(Value:string):word;functionStrToDword(Value:st…
类别:字符串 标签: 作者:admin 日期:2018-01-01 18.21.19

delphi 金额大小写转换函数

{*------------------------------------------------金额大小写转换函数@author王云盼@versionV1506.01在delphi7测试OK-------------------------------------------------}unitUnTranRMB;//主要是考虑数字的小数部…
类别:字符串 标签: 作者:admin 日期:2017-12-31 23.04.46

Delphi中的字符串分割

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

Delphi 中的字符串

Delphi中的字符串一、Delphi2009之前的字符串(不支持Unicode):Delphi2009之前的字符串分为3种:ShortString、AnsiString、WideString。【ShortString】ShortString是一种比较古老的Pascal字符串格式,它最多只能容…
类别:字符串 标签: 作者:admin 日期:2017-12-30 21.57.26

elphi中取出字符串中指定位置的几个字符

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

delphi GB2312 编码转义URL字符串

QString新增了UrlEncode函数,优化了性能,速度比官方的版本快一点,更重要的是可以ANSI和UTF8编码,或者是自己喜欢的编码都行。functionUrlEncode(constABytes:PByte;l:Integer;ASpacesAsPlus:Boolean):QStringW;ov…
类别:字符串 标签: 作者:admin 日期:2017-03-13 18.12.41

Delphi String 常用字串符处理函数

Delphi在面对跨平台开发,程序语言也改进不少,不过有些改进,让原本Delphi开发者有些不适应,最显注的就是字串处理函数了,原本Pascal语言字串起始由1开始,几乎是它的经典了,新版本字串由0开始,这个改变,让很多…
类别:字符串 标签: 作者:admin 日期:2017-03-13 18.03.19

delphi 用正则表达式检查一个串是否是电信的手机号

delphi判断文件名是否合法,判断文件名路径是否合法:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,S****C****ls;typeT****1=class(T****)Button1:TButto…
类别:字符串 标签: 作者:admin 日期:2017-03-06 19.15.01

delphi 检查用户输入必须是汉字串

Delphi7的版本:functionTForm1.IsChineseString(s:WideString):Boolean;vari,j:Integer;begin//输入必须是纯汉字串result:=True;fori:=1toLength(s)dobeginj:=Ord(s[i]);if(j40869)thenbegin&nbs...
类别:字符串 标签: 作者:admin 日期:2017-03-06 19.09.49

Delphi XE5 Android手机端转换Ansi字符串

介绍本文章介绍了DelphiXE5Android手机端转换Ansi字符串,本代码是“浙江-樵夫”开发的一个程序,用来对字符串进行转换,主要代码是://读入Ansi(简体中文)文件...procedureTForm1.CornerButton3Click(Sender:TObj…
类别:字符串 标签: 作者:admin 日期:2017-03-06 18.46.06