RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数

Delphi不占CPU的延时函数

functionDelay(MaxWaitTime:Cardinal):Boolean;varI:Integer;varWaitedTime:Cardinal;beginWaitedTime:=0;while(WaitedTimebeginSleepEx(100,False);Inc(WaitedTime,100); ...
类别:函数 标签: 作者:admin 日期:2017-03-28 23.13.54

delphi 判断网络链接文件是否存在

functionCheckUrlFileExists(constaURL:string):Boolean;//usesWinInet;varhSession,hfile:hInternet;dwindex,dwcodelen:dword;dwcode:array[1..20]ofChar;res:PChar;url:string;begin ...
类别:函数 标签: 作者:admin 日期:2017-03-21 22.33.37

delphi url取得文件名

functionGetFileNameFromURL(constaURL:string):string;varts:TStrings;begin//从url取得文件名ts:=TStringList.create;tryts.Delimiter:='/';ts.DelimitedText:=aURL;if&n...
类别:函数 标签: 作者:admin 日期:2017-03-21 22.33.07

XE7提示找不到SharedActivityContext函数

XE7提示找不到SharedActivityContext函数,加入以下单元引用:{$IFDEFANDROID}{$IFCompilerVersion>=27.0}//>=XE6<s...
类别:函数 标签: 作者:admin 日期:2017-03-21 22.15.49

delphi [函数] Unicode 检查字符串是否含中文字

//字串含中文byAonefunctionIsIncludeChinese(Str:String):Boolean;vari:Integer;UCS4Str:UCS4String;beginResult:=False;UCS4Str:=UnicodeStringToUCS4String(Str);fori:=Low(UCS4Str)toHigh(UCS4Str)doif((UCS4Str…
类别:函数 标签: 作者:admin 日期:2017-03-13 18.02.37

delphi 比较版本号

感谢竹子写的比较版本号的方法。比较版本号functionTFServerMain.CompareVersion(constFileVersion1,FileVersion2:String):Integer;varItems1:TStrings;Items2:TStrings;i:Integer;e1:Integer;e2:Integer;beginResul…
类别:函数 标签: 作者:admin 日期:2017-03-06 18.59.05

delphi 延时程序

ProcedureTForm1.Delay(Msecs:Integer);varFirstTickCount:real;beginFirstTickCount:=GetTickCount;RepeatApplication.ProcessMessages;Until((GetTickCount-FirstTickCount)>=LongInt(Msecs));end;程序调用:Delay…
类别:函数 标签: 作者:admin 日期:2017-03-06 18.47.06

delphi 小数点四舍五入问题

functionARoundN(v:Double;n:Integer):Double;varI:Integer;beginresult:=v;forI:=0ton-1dobeginresult:=result*10;end;result:=Round(result);forI:=0ton-1dobegin ...
类别:函数 标签: 作者:admin 日期:2016-01-27 00.01.11

Delphi StreamToHexStr

functionStreamToHexStr(AStream:TStream):String;constHexChars:array[0..15]ofChar='0123456789ABCDEF';vari,len:Integer;beginlen:=AStream.Size-AStream.Position;SetLength(Result,len*2);AStream.Read(Pointer…
类别:函数 标签: 作者:admin 日期:2015-04-27 19.49.01

Delphi HexStrToStream

functionHexStrToStream(AHexStr:String;AStream:TStream):Boolean;variLen:Integer;Buff:String;P1,P2:PChar;B:Byte;beginResult:=False;ifNotAssigned(AStream)thenExit;iLen:=Length(AHexStr);ifiLen=0then...
类别:函数 标签: 作者:admin 日期:2015-04-27 19.48.21

delphi xe HTTPEncode

functionHTTPEncode(constAStr:String):String;constNoConversion=['A'..'Z','a'..'z','*','@','.','_','-','0'..'9','$','!','''','(',')'];varSp,Rp:PAnsiChar;beginSetLength(Result,Length(AStr)*3);Sp:=PAnsiCh…
类别:函数 标签: 作者:admin 日期:2015-01-21 21.05.24

Delphi自有的MD5函數

我比较喜欢使用Delphi自带的单元和控件,这样对于软件产品的升级十分有益。就拿MD5单元的升级来说,从D6升级到XE,确实够我折腾的。累的吐血可以说。下面介绍如何使用Delphi自带的单元来实现MD5散列值的获取。(Messa…
类别:函数 标签: 作者:admin 日期:2014-11-24 20.51.33

Delphi中提取网址链接分路径

functionGetHost(TheURL:string):String;varFURL:String;beginFURL:=TheURL+'555';ifpos(UpperCase('http://'),UpperCase(FURL))>0thenbeginDelete(FURL,1,Length('http://'));end;Result:=Copy(FURL,1,pos('/',FURL…
类别:函数 标签: 作者:admin 日期:2014-08-13 22.15.47

delphi 从网址链接中提取域名

functionGetHost(TheURL:string):String;varFURL:String;beginFURL:=TheURL+'555';ifpos(UpperCase('http://'),UpperCase(FURL))>0thenbeginDelete(FURL,1,Length('http://'));end;Result:=Copy(FURL,1,pos('/',FURL…
类别:函数 标签: 作者:admin 日期:2014-08-13 21.53.34

delphi 几个实用的HTML解析函数

1)HTML标签值攫取函数,任意标签哦,纯字符串分析,可以配合IDHTTP编程usesStrUtils;functionExtractHtmlTagValues(constHtmlText:string;TagName,AttribName:string;varValues:TStringList):integer;functionFindFi…
类别:函数 标签: 作者:admin 日期:2014-07-29 18.03.19

delphi 校验手机号及身份证号

//校验手机号functionIsMobileNumber(num:string):boolean;beginResult:=False;iflength(trim(Num))<>11thenExit;if((copy(num,1,2)'15'))thenE...
类别:函数 标签: 作者:admin 日期:2014-07-29 17.17.21

Delphi中StrToDateTime函数TFormatSettings参数的使用

varFSetting:TFormatSettings;DateTime1:tDateTime;beginFSetting:=TFormatSettings.Create(LOCALE_USER_DEFAULT);FSetting.ShortDateFormat:='yyyy-MM-dd';FSetting.DateSeparator:='-';//FSetting.TimeSeparator:=…
类别:函数 标签: 作者:admin 日期:2014-07-29 17.16.08

Delphi循环移位操作

Delphi循环移位操作如果在X86计算机上很简单,直接内嵌汇编ror和rol指令就是循环移位.但是如果在Android的平台上,asm关键字是无效的.只能自己实现.functionror(constValue:DWORD;ShiftValue:Byte):DWORD;overload;beg…
类别:函数 标签: 作者:admin 日期:2014-02-20 22.15.22

delphi 获取邮箱中的用户名

有一个E-mail地址:username@***.com
类别:函数 标签: 作者:admin 日期:2014-01-24 22.26.23

delphi API – MultiByteToWideChar的用法

在D2010中多了一个类TEncoding,这个类用来转换不同编码的字符串.在看这个类的代码的时候我看见这个API函数,具体来说这个函数将一个字节数组转换PWideChar.因为不同编码下一个字符串占的字节数是不一样的,这样转换后每…
类别:函数 标签: 作者:admin 日期:2013-11-25 10.10.34