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

delphi 过滤网页代码 <SCRIPT></SCRIPT>

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.30

delphi中Tstringlist分割字符串的用法

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。1、CommaText2、Delimiter&DelimitedText3、Names&Values&ValueFromIndex…
类别:字符串 标签: 作者:admin 日期:2018-03-13 21.38.59

Delphi 汉字转拼音,技持多个汉字一起转

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

delphi 16进制字符串转原字符串

functionmyHextoStr(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.34

delphi 字符串转换ascii码10进制

functionStrToASCII10(s:string):string;//字符串转换ascii码10进制vari:integer;beginfori:=1tolength(s)dobeginresult:=result+inttostr(ord(s[i]));end;end;
类别:字符串 标签: 作者:admin 日期:2018-02-24 23.20.11

delphi 网址链接提取域名

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(…
类别:字符串 标签: 作者:admin 日期:2018-02-15 20.20.21

delphi 数字排序自动完成

functionDecStr(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.57

delphi 查询某个字符在字符串出现的位置,支持查找次数

functionSearchString(constFindStr,SourceString:string;Num:Integer):Integer;varFirstSym:PChar;//СсылканапервыйсимволfunctionMyPos(constFindStr,SourceString:PChar;Num:Integer):PChar;…
类别:字符串 标签: 作者:admin 日期:2018-02-15 18.09.47

delphi 根据特殊符号字符获取字符串前或后的字符

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:='…
类别:字符串 标签: 作者:admin 日期:2018-02-15 18.02.18

delphi 字符或符号在字符串出现的次数

functionSymbolEntersCount(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

delphi RemoveInvalid截取字符串某个字符前面的字符

//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

delphi 过滤字符串首位特殊符号

//用法:ShowMessage(TrimEx('','functionTrimEX(Word,TrimSymbols:string):string;varx,a,b:Integer;beginResult:=Word;ifTrimSymbols=''thenexit;Word:=Trim(word);<...
类别:字符串 标签: 作者:admin 日期:2018-02-15 17.50.19

delphi 数值小数点后不保留0

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…
类别:字符串 标签: 作者:admin 日期:2018-02-15 17.44.58

delphi 合并文本行的函数

functionDeleteLineBreaks(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.36

delphi 英文单词第一个字母大写

functionPROPER(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.44

delphi PADL 处理字符串的函数

functionPADL(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.19

Delphi中判断一个字符的位置在字符串开头或者末尾

procedureTForm1.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.12

Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

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(…
类别:字符串 标签: 作者:admin 日期:2018-02-08 14.03.54

delphi 网上获取北京时间取字符串与字符串中间的字符

取字符串与字符串中间的字符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.41

delphi MAC地址转换字符串

functionMACtoStr(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