usesStrUtils;functionClearScript(AHtml:string):string;constcsHead='<SCRIPT';csTail='';cnHead=length(csHead);cnTail=length(csTail);varnHeadPos:integer;nTailPos:integer;nNewSearchPos:integer;nHtmlLength…

TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。1、CommaText2、Delimiter&DelimitedText3、Names&Values&ValueFromIndex…

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.Buttons,Vcl.StdCtrls;typeTForm1=class(TForm)Spe…

functionmyHextoStr(S:string):string;//16进制字符串转原字符串varhexS,tmpstr:string;i:integer;a:byte;beginhexS:=s;//应该是该字符串iflength(hexS)mod2=1thenbeginhexS:=hexS+'0';end;tmpstr:='';<...

functionStrToASCII10(s:string):string;//字符串转换ascii码10进制vari:integer;beginfori:=1tolength(s)dobeginresult:=result+inttostr(ord(s[i]));end;end;

functionDelHttp(URL:S****ing):S****ing;beginifPos('http://',URL)>0thenDelete(Url,1,7);Result:=Copy(Url,1,Pos('/',Url)-1);ifResult=''thenResult:=URL;end;memo1.Lines.Add(DelHttp(…

functionDecStr(Input:string):string;vari,j,t:integer;s:string;beginifpos('-',Input)<>0thenbeginwhilelength(Input)<>0dobeginifInput[1]=','thenbegini:=strtoint(s);delete(Input,1,1);&nb...

functionSearchString(constFindStr,SourceString:string;Num:Integer):Integer;varFirstSym:PChar;//СсылканапервыйсимволfunctionMyPos(constFindStr,SourceString:PChar;Num:Integer):PChar;…

functionGetBefore(substr,str:string):string;{©Drkbv.3(2007):www.drkb.ru,®Vit(VitalyNevzorov)-nevzorov@yahoo.com}beginifpos(substr,str)>0thenresult:=copy(str,1,pos(substr,str)-1)elseresult:='…

functionSymbolEntersCount(s:string;ch:char):integer;vari:integer;beginResult:=0;ifTrim(s)<>''thenfori:=1toLength(s)doifs[i]=chtheninc(Result);end;

//ShowMessage(RemoveInvalid('人','中国人'));//结果中国functionRemoveInvalid(what,where:string):string;vartstr:string;begintstr:=where;whilepos(what,tstr)>0dotstr:=copy(tstr,1,pos(what,tstr)-1)+copy(ts…

//用法：ShowMessage(TrimEx('','functionTrimEX(Word,TrimSymbols:string):string;varx,a,b:Integer;beginResult:=Word;ifTrimSymbols=''thenexit;Word:=Trim(word);<...

functionStrFl(st:string):string;labelp1,p2,p3;varpoz:Byte;k:integer;stt:string;begink:=Length(st);ifk<=1thengotop2;p1:stt:=Copy(st,1,1);{Очисткаотпробелов}ifstt=''thenbeginst:=Copy(st…

functionDeleteLineBreaks(constS:s****ing):s****ing;varSource,SourceEnd:PChar;beginSource:=Pointer(S);SourceEnd:=Source+Length(S);whileSource<SourceEnddobegincaseSource^of#10:Source^:=#32;#13:Source^:=…

functionPROPER(S:s****ing):s****ing;constSymbols='_;.,1234567890';varX:Integer;beginResult:='';ifLength(s)=0thenexit;S[1]:=AnsiUpperCase(s[1])[1];...

functionPADL(Src:string;Lg:Integer):string;beginResult:=Src;whileLength(Result)<LgdoResult:=''+Result;end;functionPADR(Src:string;Lg:Integer):string;begin...

procedureTForm1.btn1Click(Sender:TObject);vars:string;begins:='abcdefghijkilkjasldnbG';ifs[1]='a'thenShowMessage('a在开始位置');ifs[Length(s)]='G'thenShowMessage('G在最后一位');end;

usesStrUtils;functionReversePos(SubStr,S:String):Integer;vari:Integer;begini:=Pos(ReverseString(SubStr),ReverseString(S));ifi>0theni:=Length(S)-i-Length(SubStr)+2;Result:=i;end;调用的例子:ShowMessage(…

取字符串与字符串中间的字符functionGetStringBetween(constFullStr,StrLeft,StrRight:String):string;varidx_Start,idx_End,iStrCnt:Integer;beginResult:='';idx_Start:=Pos(StrLeft,FullStr)+Length(StrLeft);idx…

functionMACtoStr(MAC:arrayofbyte):string;varI:integer;begin//.2setprecforhexnumForI:=0to5dobeginResult:=Result+IntToHex(MAC[I],2);IfI<>5ThenResult:=Result+':';end;Result:=Result;end;