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

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

delphi MEID校验码算法

EID校验码算法:
类别:函数 标签: 作者:admin 日期:2013-11-12 11.21.29

Delphi 延迟时间函数

functionritime(m:integer):integer;varot:integer;beginot:=GetTickCount;RepeatApplication.ProcessMessages;Until((GetTickCount-ot)>=longInt(m));end;
类别:函数 标签: 作者:admin 日期:2013-10-10 20.26.01

Delphi高效的Byte转化Sring 函数

functionByteToHex(Src:Byte):String;beginSetLength(Result,2);asmMOVEDI,[Result]MOVEDI,[EDI]MOVAL,SrcMOVAH,AL//SavetoAHSHRAL,4//OutputHigh4BitsADDAL,"0"CMPAL,"9"JBE@@OutCharLoADDAL,"A"-"9"-1@@OutCharLo:…
类别:函数 标签: 作者:admin 日期:2013-10-10 20.12.03

Delphi获取身份证号码验证码算法

18身份证号码的结构公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位校验码。1、地址码表示编码对象常住户口所在…
类别:函数 标签: 作者:admin 日期:2013-10-10 15.09.55

Delphi中实现变长函数笔记

前面从网络中收藏加转贴了一部分关于变长参数函数的笔记。反正休闲没事,于是就专门的研究研究了如何用Delphi来实现类似于C语言中Printf这种可以传递任意多个参数的函数。这个实际上来说也不太难,只要俺们都熟悉函数…
类别:函数 标签: 作者:admin 日期:2013-10-08 09.06.28

delphi 中的split 函数

delphi中的split函数类似于vb中的split函数typeuserarray=arrayofstring;functionsplit(s:string;dot:char):userarray;varstr:userarray;i,j:integer;begini:=1;j:=0;SetLength(str,255);whilePos(dot,s)>0do//Pos返…
类别:函数 标签: 作者:admin 日期:2013-10-08 09.00.11

delphi GetHomePath - 获取用户程序数据目录

delphiGetHomePath-获取用户程序数据目录usesSystem.IOUtils;procedureTForm1.FormCreate(Sender:TObject);varS:string;begin{三种方法结果一致:C:\Users\wy\AppData\Roaming}S:=GetHomePath;/...
类别:函数 标签: 作者:admin 日期:2013-08-13 12.58.10