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

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

delphi 根据邮箱地址分离出@前的内容

functionPosCh(ch:Char;constS:String):Integer;varI:Integer;beginforI:=1toLength(S)doifS[I]=chthenbeginresult:=I;Exit;end;result:=0;end;functionExtractOwner(constS:String):String;...
类别:字符串 标签: 作者:admin 日期:2018-01-29 20.08.10

delphi SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置

SysUtils.LastDelimiter-判断一个字符串在另一个字符串中最后出现的位置该函数不区分大小写,举例:vars:string;i:Integer;begins:='CodeDearDelphi';i:=LastDelimiter('Del',s);ShowMessage(IntToStr(i));{12}end;
类别:字符串 标签: 作者:admin 日期:2018-01-23 19.33.13

delphi String转为OleVariant

functionStringToVariantArray(constS:string):OleVariant;varP:Pointer;beginResult:=NULL;ifLength(S)>0thenbeginResult:=VarArrayCreate([0,Length(S)-1],varByte);P:=VarArrayLock(Result);tryMove(S[1],P^,Leng…
类别:字符串 标签: 作者:admin 日期:2018-01-23 19.06.36

Delphi 的字符及字符串 - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar

Delphi有三种类型的字符:AnsiChar这是标准的1字节的ANSI字符,程序员都对它比较熟悉。WideChar这是2字节的Unicode字符。Char在目前相当于AnsiChar,但在Delphi以后版本中相当于WideChar.记住因为一个字符在长度上并…
类别:字符串 标签: 作者:admin 日期:2018-01-23 18.37.33

Delphi 将string 转为 Array of AnsiChar

Delphi将string转为ArrayofAnsiChar的简单方法如下:procedureTMainForm.BitBtn7Click(Sender:TObject);varStr:string;SN:Array[0..7]ofAnsiChar;PC:PChar;I:Integer;beginStr:='66778899';PC:=PChar(Str);forI:=0to…
类别:字符串 标签: 作者:admin 日期:2018-01-23 18.33.17

delphi 字节数转换为KB或MB字符串

//delphi字节数转换为KB或MB字符串functionBytesToStr(iBytes:Integer):String;variKb:Integer;beginiKb:=Round(iBytes/1024);ifiKb>1000thenResult:=Format(‘%.2fMB‘,[iKb/1024])elseResult:=Format(‘%dKB‘,[iK…
类别:字符串 标签: 作者:admin 日期:2018-01-23 11.28.47

delphi 检验手机号 IsMobileNumber

写个函数也可以functionIsMobileNumber(num:string):boolean;beginResult:=False;iflength(trim(Num))<>11thenExit;if((copy(num,1,2)'15'))thenExit;tryStrToInt(copy(num,3,9));Result:=True;...
类别:字符串 标签: 作者:admin 日期:2018-01-18 21.29.34

delphi RandString 随机字符串

functionRandString(s:string;Min,Max:Integer):string;varcount,i,r:Integer;beginResult:='';if((Max-Min)>0)thenbegincount:=Random(Max-Min+1)+Min;fori:=0tocount-1dobeginr:=Random(Length(s))+1;Result:=Resu…
类别:字符串 标签: 作者:admin 日期:2018-01-16 19.15.46

delphi 数据类型cardinal 怎么转换成 string?

delphi数据类型cardinal怎么转换成string?Vari:cardinal;beginI:=4294967295;caption:=Format('%u',[I]);
类别:字符串 标签: 作者:admin 日期:2018-01-16 12.40.13

Delphi 62进制转10进制

unitH62;interfaceusesSysUtils;functionIntToH62(N:UInt64):string;//整数转到62进制字符串functionH62ToInt(S:string):UInt64;//62进制字符串转到整数implementationfunction_C2B(C:Char):Byte;inline;beginResult…
类别:字符串 标签: 作者:admin 日期:2018-01-15 16.30.05

delphi 字符串转换为16进制整数 整数转换为16进制字符串

FunctionStr_HexToInt(Hex:String):integer;VarHexDigital:SetOfchar;i:integer;Digital:String;BeginResult:=0;HexDigital:=['1','2','3','4','5','6','7','8','9','0','A','B','C','D','E','F','a','b','c','d','e…
类别:字符串 标签: 作者:admin 日期:2018-01-11 09.50.17

Delphi CompareStr 这个函数可以模糊匹配,且不区分大小写

DelphiCompareStr这个函数可以模糊匹配,且不区分大小写vars:string;begins:='AA';ifCompareStr('bbaabb',s)>0then//CompareStr这个函数可以模糊匹配,且不区分大小写ShowMessage('aa');end;
类别:字符串 标签: 作者:admin 日期:2018-01-11 09.48.25

Delphi中的进制转换

Delphi中的几种进制转换函数非原创,收藏供查询。二进制转换12345678910111213141516171819202122232...
类别:字符串 标签: 作者:admin 日期:2018-01-08 21.14.39

Delphi中String与PAnsiChar转换

所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡strAnsi:=PAnsiChar(AnsiString(str));
类别:字符串 标签: 作者:admin 日期:2018-01-07 15.11.51

Delphi异常处理try except语句和try finally语句用法以及区别

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=****ue;end;ByteType字符串中判断是否英文ByteType('123你好吗',...
类别:字符串 标签: 作者:admin 日期:2018-01-03 23.14.28