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

delphi 网址链接提取域名

functionDelHttp(URL:String):String;beginifPos('http://',URL)>0thenDelete(Url,1,7);Result:=Copy(Url,1,Pos('/',Url)-1);ifResult=''thenResult:=URL;end;memo1.Lines.Add(DelHttp(edit1.Text));//http://www.ba…
类别:字符串 标签: 作者: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

delphi 得到IP三个值

functionGetIP1(constS:String):String;//192.168.1.1得到192vartempstr:string;begintempstr:=SplitString(S,'.').Strings[0];tempstr:=StringReplace(tempstr,'.','',[]);result:=tempstr;end;functionGetIP2(cons…
类别:字符串 标签: 作者:admin 日期:2018-02-01 00.30.51

delphi for 循环 to和downto的理解

delphifor循环to和downto的理解procedureTForm1.btn1Click(Sender:TObject);varc:Integer;beginforc:=5downto0dobeginShowMessage(IntToStr(c));end;end;forc:=0to5dobeginShowMessage(IntToStr(c));end;</div...
类别:字符串 标签: 作者:admin 日期:2018-01-31 23.40.11

delphi 截取两个字符之间的内容

delphi截取两个字符之间的内容functioncopyBegin2EndStr(begindex,endindex,source:string):string;//截取两个字符之间的内容varn,m:Integer;beginn:=Pos(begindex,source);m:=Pos(endindex,source);Result:=Copy(so…
类别:字符串 标签: 作者:admin 日期:2018-01-30 15.38.12

delphi ExtractClassName 字符串处理函数

functionExtractClassName(constS:String):String;varI,L,K1,K2:Integer;beginL:=Length(S);result:='';K1:=0;K2:=0;forI:=Ldownto1doifS[I]='.'thenifK2=0thenK2:=...
类别:字符串 标签: 作者:admin 日期:2018-01-29 20.13.22

delphi RemoveWhiteSpaces 过滤字符串所有空格

functionRemoveWhiteSpaces(constS:String):String;varI:Integer;ch:Char;beginresult:='';forI:=1toLength(S)dobeginch:=S[I];ifch=''thenbeginendelseifch=#9thenbeginendelseresult:=result+ch;<div...
类别:字符串 标签: 作者:admin 日期:2018-01-29 20.10.27