usesStrUtils;functionClearScript(AHtml:string):string;constcsHead='<SCRIPT';csTail='';cnHead=length(csHead);cnTail=length(csTail);varnHeadPos:integer;nTailPos:integer;nNewSearchPos:integer;nHtmlLength…
类别:
字符串 标签: 作者:
admin 日期:
2018-03-13 21.46.30TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。1、CommaText2、Delimiter&DelimitedText3、Names&Values&ValueFromIndex…
类别:
字符串 标签: 作者:
admin 日期:
2018-03-13 21.38.59unitUnit1;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…
类别:
字符串 标签: 作者:
admin 日期:
2018-03-12 22.24.36functionmyHextoStr(S:string):string;//16进制字符串转原字符串varhexS,tmpstr:string;i:integer;a:byte;beginhexS:=s;//应该是该字符串iflength(hexS)mod2=1thenbeginhexS:=hexS+'0';end;tmpstr:='';<...
类别:
字符串 标签: 作者:
admin 日期:
2018-02-24 23.20.34functionStrToASCII10(s:string):string;//字符串转换ascii码10进制vari:integer;beginfori:=1tolength(s)dobeginresult:=result+inttostr(ord(s[i]));end;end;
类别:
字符串 标签: 作者:
admin 日期:
2018-02-24 23.20.11functionDelHttp(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(…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 20.20.21functionDecStr(Input:string):string;vari,j,t:integer;s:string;beginifpos('-',Input)<>0thenbeginwhilelength(Input)<>0dobeginifInput[1]=','thenbegini:=strtoint(s);delete(Input,1,1);&nb...
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 18.12.57functionSearchString(constFindStr,SourceString:string;Num:Integer):Integer;varFirstSym:PChar;//СсылканапервыйсимволfunctionMyPos(constFindStr,SourceString:PChar;Num:Integer):PChar;…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 18.09.47functionGetBefore(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:='…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 18.02.18functionSymbolEntersCount(s:string;ch:char):integer;vari:integer;beginResult:=0;ifTrim(s)<>''thenfori:=1toLength(s)doifs[i]=chtheninc(Result);end;
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 18.00.07//ShowMessage(RemoveInvalid('人','中国人'));//结果中国functionRemoveInvalid(what,where:string):string;vartstr:string;begintstr:=where;whilepos(what,tstr)>0dotstr:=copy(tstr,1,pos(what,tstr)-1)+copy(ts…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 17.56.24//用法:ShowMessage(TrimEx('','functionTrimEX(Word,TrimSymbols:string):string;varx,a,b:Integer;beginResult:=Word;ifTrimSymbols=''thenexit;Word:=Trim(word);<...
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 17.50.19functionStrFl(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…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 17.44.58functionDeleteLineBreaks(constS:s****ing):s****ing;varSource,SourceEnd:PChar;beginSource:=Pointer(S);SourceEnd:=Source+Length(S);whileSource<SourceEnddobegincaseSource^of#10:Source^:=#32;#13:Source^:=…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 17.40.36functionPROPER(S:s****ing):s****ing;constSymbols='_;.,1234567890';varX:Integer;beginResult:='';ifLength(s)=0thenexit;S[1]:=AnsiUpperCase(s[1])[1];...
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 17.37.44functionPADL(Src:string;Lg:Integer):string;beginResult:=Src;whileLength(Result)<LgdoResult:=''+Result;end;functionPADR(Src:string;Lg:Integer):string;begin...
类别:
字符串 标签: 作者:
admin 日期:
2018-02-15 17.34.19procedureTForm1.btn1Click(Sender:TObject);vars:string;begins:='abcdefghijkilkjasldnbG';ifs[1]='a'thenShowMessage('a在开始位置');ifs[Length(s)]='G'thenShowMessage('G在最后一位');end;
类别:
字符串 标签: 作者:
admin 日期:
2018-02-10 16.56.12usesStrUtils;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(…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-08 14.03.54取字符串与字符串中间的字符functionGetStringBetween(constFullStr,StrLeft,StrRight:String):string;varidx_Start,idx_End,iStrCnt:Integer;beginResult:='';idx_Start:=Pos(StrLeft,FullStr)+Length(StrLeft);idx…
类别:
字符串 标签: 作者:
admin 日期:
2018-02-07 01.52.41functionMACtoStr(MAC:arrayofbyte):string;varI:integer;begin//.2setprecforhexnumForI:=0to5dobeginResult:=Result+IntToHex(MAC[I],2);IfI<>5ThenResult:=Result+':';end;Result:=Result;end;
类别:
字符串 标签: 作者:
admin 日期:
2018-02-06 10.30.53