functionGetIP1(constS:String):String;//192.168.1.1得到192vartempstr:string;begintempstr:=SplitString(S,'.').Strings[0];tempstr:=StringReplace(tempstr,'.','',[]);result:=tempstr;end;functionGetIP2(cons…

delphifor循环to和downto的理解procedureTForm1.btn1Click(Sender:TObject);varc:Integer;beginforc:=5downto0dobeginShowMessage(IntToStr(c));end;end;forc:=0to5dobeginShowMessage(IntToStr(c));end;</div...

delphi截取两个字符之间的内容functioncopyBegin2EndStr(begindex,endindex,source:string):string;//截取两个字符之间的内容varn,m:Integer;beginn:=Pos(begindex,source);m:=Pos(endindex,source);Result:=Copy(so…

functionExtractClassName(constS:String):String;varI,L,K1,K2:Integer;beginL:=Length(S);result:='';K1:=0;K2:=0;forI:=Ldownto1doifS[I]='.'thenifK2=0thenK2:=...

functionRemoveWhiteSpaces(constS:String):String;varI:Integer;ch:Char;beginresult:='';forI:=1toLength(S)dobeginch:=S[I];ifch=''thenbeginendelseifch=#9thenbeginendelseresult:=result+ch;<div...

functionPosCh(ch:Char;constS:String):Integer;varI:Integer;beginforI:=1toLength(S)doifS[I]=chthenbeginresult:=I;Exit;end;result:=0;end;functionExtractOwner(constS:String):String;...

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

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…

Delphi有三种类型的字符：AnsiChar这是标准的1字节的ANSI字符，程序员都对它比较熟悉。WideChar这是2字节的Unicode字符。Char在目前相当于AnsiChar，但在Delphi以后版本中相当于WideChar.记住因为一个字符在长度上并…

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…

//delphi字节数转换为KB或MB字符串functionBytesToStr(iBytes:Integer):String;variKb:Integer;beginiKb:=Round(iBytes/1024);ifiKb>1000thenResult:=Format(‘%.2fMB‘,[iKb/1024])elseResult:=Format(‘%dKB‘,[iK…

写个函数也可以functionIsMobileNumber(num:string):boolean;beginResult:=False;iflength(trim(Num))<>11thenExit;if((copy(num,1,2)'15'))thenExit;tryStrToInt(copy(num,3,9));Result:=True;...

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…

delphi数据类型cardinal怎么转换成string？Vari:cardinal;beginI:=4294967295;caption:=Format('%u',[I]);

unitH62;interfaceusesSysUtils;functionIntToH62(N:UInt64):string;//整数转到62进制字符串functionH62ToInt(S:string):UInt64;//62进制字符串转到整数implementationfunction_C2B(C:Char):Byte;inline;beginResult…

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…

DelphiCompareStr这个函数可以模糊匹配，且不区分大小写vars:string;begins:='AA';ifCompareStr('bbaabb',s)>0then//CompareStr这个函数可以模糊匹配，且不区分大小写ShowMessage('aa');end;

Delphi中的几种进制转换函数非原创，收藏供查询。二进制转换12345678910111213141516171819202122232...

所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡strAnsi:=PAnsiChar(AnsiString(str));

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=****ue;end;ByteType字符串中判断是否英文ByteType('123你好吗',...