delphi Memo 文本列合并

functiongetOneLineMemo(memo:Tmemo):String;vari:integer;beginresult:='';fori:=0toMemo.lines.countdore…

delphi HTML转义字符编码转换

网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。本文是利用IE…

Delphi TstringList Stringlist的特殊用法

procedureTForm1.btn1Click(Sender:TObject);varm:Integer;s:string;strlst:TStrings;beginstrlst:=TString…

Delphi REST 服务器返回UTF16编码转换成正常string

{"result":["{\"ServerCount\":2,\"Servers\":[{\"ServerName\":\"\u672C\u573014\u670D\",\"ServerIP\":\"…

Delphi 中的哈希表: THashedStringList

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

delphi 数字转换成中文

获取当前日期，日期为数字。将数字转换成中文。functionTForm1.GetCNDay():string;//result是function默认的…

Delphi中比较两个字符串相似性的百分比算法

用百分比比较两个字符串(彼此之间有多少相似度)返回byte类型，从0到100%functionCompareStringsInPercent(S…

delphi TByteDynArray转化为string

procedureTForm1.Button1Click(Sender:TObject);varI:integer;aa:TByteDynArray;bb:string;beginsetlength(…

delphi repeat 递增/递减输出

procedureTForm1.Button1Click(Sender:TObject);vari:integer;begini:=0;repeati:=i+1;memo1.Lines.Add(Int…

delphi获得唯一ID字符串

//这是我三层开发中常用的一个函数，直接调用CreateSortIDusesSystem.Win.ComObj,System.RegularExpression…

delphi 根据字符串分隔符位置取值

functionS****Split(SourS****:s****ing;Delimiter:s****ing):TArray;vari,len,count,count2:integer;sPart…

delphi 泛型数组 StrSplit 字符串分割

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

delphi 取得固定长度的随机字符串

unitUnit1;interfaceusesSystem.Hash,Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,Sy…

delphi String转换成TStrings

functionStringsToStr(constvList:TStrings):string;vari:Integer;beginResult:='';fori:=0tovList.Count-1…

delphi 判断文本是否包含多个关键词之一

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

delphi Integer.tryParse

会返回异常Integer.Parse(string)不会返回异常Integer.tryParse('12',i);结果：true12Integer.tryParse('12…

delphi string.Create(Char,count)

str:=string.Create('a',3);//aaa

delphi string.Parse

str:=string.Parse(r);//将Integer、Extended、boolean解析成string型

Delphi Byte、PByte、TBytes的转换

PByte转TBytes：a:PByte;b:TBytes;b:=TBytes(a);PByte转Byte：其实就是指针操作a:PByte;b:Byte;b:=a^;Byte转…

delphi 中文字符串截取

procedureTForm1.Button1Click(Sender:TObject);beginmemo3.Lines.Add(wShortFileName(edit1.Text,StrToInt…