unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
functionAyikla(Sayi:string):string;varI:integer;S:string;beginS:=Trim(Sayi);Sayi:='';forI:=1toLength…
functionGetRandomPassword(ALen:Integer):string;varstr:string;beginRandomize;str:='ABCDEF0123456789';…
functionUnicodeToChinese(inputstr:string):string;varindex:Integer;temp,top,last:string;beginindex:=1…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,…
functionRemoveAcento(aText:string):string;constComAcento='1234567890';SemAcento='abcdefghij';varx:Ca…
举例:vars:array[0..9]ofChar;beginFillChar(s,SizeOf(s),'a');ShowMessage(s);{aaaaaaaaaa}end;System.Str…
#9、#10、#13表示的意思#9表示tab键#10表示换行#13表示回车#N表示十进制N表示的Ascii字符#32表示空格
procedureExtractString(varScores,LeftValue:String);vari:Integer;begin//提取左侧内容i:=Pos(#9,Scores)…
ss:='http://www.delphitop.com';IFpos('http://',ss)<=0THENEXIT;delete(ss,1,pos('http:',ss)-1);HTTPURL…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
曾经看到很多人在嚷嚷Delphi没有哈希表，这些人的动手意识姑且不论，却还有很多人以此来证明Delphi比别的语…
functionT_SunnySky_SDK.JoinItems(AParamDic:TDictionary):string;varsb:TStringBuilder;key:TPair;begini…
有一个文本1.txt,里面内容例如下：11223322441155...N个处理后的想要结果是这样：334455...N个但是用以下代…
以下在WIN764+DELPHIXE10.3测试通过；运行时界面：代码如下：unitUnit1;interfaceusesWinapi.Windows,Winap…
TStringBuilder，可以理解他为一个字符数组，但是具有一个String对象支持的所有功能，因此，可以把一个TStr…
Delphi2009+的System.SysUtils提供了一个类似.Net的StringBuilder，用于存储字符数组。很多人不明白为什么要…
CSDN论坛，有人提出“10进制数与33进制数的转换”，参考网上资料，经修改，得出代码及心得如下：一、33进制…
//Delphi分解链接主域名和文件名procedureParseURL(URL:string;varHostName,FileName:string);vari:Integer…
functionUrlandPath(Url,path:string):string;vari,L:integer;yn:boolean;beginL:=length(Url);Yn:=false;f…