delphi 从网址链接中提取域名

functionGetHost(TheURL:string):String;varFURL:String;beginFURL:=TheURL+'555';ifpos(UpperCase('http:/…

delphi 几个实用的HTML解析函数

1)HTML标签值攫取函数，任意标签哦，纯字符串分析，可以配合IDHTTP编程usesStrUtils;functionExtractHtmlTa…

delphi 校验手机号及身份证号

//校验手机号functionIsMobileNumber(num:string):boolean;beginResult:=False;iflength(trim(Num))<>11the…

Delphi中StrToDateTime函数TFormatSettings参数的使用

varFSetting:TFormatSettings;DateTime1:tDateTime;beginFSetting:=TFormatSettings.Create(LOCALE_USER_DE…

Delphi循环移位操作

Delphi循环移位操作如果在X86计算机上很简单,直接内嵌汇编ror和rol指令就是循环移位.但是如果在Android的平…

delphi 获取邮箱中的用户名

有一个E-mail地址：username@***.com

delphi API – MultiByteToWideChar的用法

在D2010中多了一个类TEncoding,这个类用来转换不同编码的字符串.在看这个类的代码的时候我看见这个API函数,…

delphi MEID校验码算法

EID校验码算法：

Delphi 延迟时间函数

functionritime(m:integer):integer;varot:integer;beginot:=GetTickCount;RepeatApplication.ProcessMessa…

Delphi高效的Byte转化Sring 函数

functionByteToHex(Src:Byte):String;beginSetLength(Result,2);asmMOVEDI,[Result]MOVEDI,[EDI]MOVAL,SrcM…

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

18身份证号码的结构公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次…

Delphi中实现变长函数笔记

前面从网络中收藏加转贴了一部分关于变长参数函数的笔记。反正休闲没事，于是就专门的研究研究了如何用Delp…

delphi 中的split 函数

delphi中的split函数类似于vb中的split函数typeuserarray=arrayofstring;functionsplit(s:string;dot:char)…

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

delphiGetHomePath-获取用户程序数据目录usesSystem.IOUtils;procedureTForm1.FormCreate(Sender:TObject);…

delphi System.SysUtils.TStringHelper 字符处理

delphiSystem.SysUtils.TS****ingHelper大小写转换:----------------------------------------------------…

delphi 62 进制的简单实现

62进制需要的字符及次序:0..9a..zA..Z;只实现了62进制字符串与正整数的互换.-----------------------------…

delphi中move 函数额用法

varpSource,pDest:PChar;len:integer;.......................//一些代码Move(pSource,pDest,len);//错误Mo…

Delph i判断IP地址是否正确

functionIsValidIP(strIP:string):Boolean;vari,PartCount{用多少段,以点号分开}:Integer;Part:string;begi…

delphi EnumWindows 获取窗体句柄 进程ID 窗体信息

delphiEnumWindows获取窗体句柄进程ID窗体信息//EnumWindows的功能是遍历所有顶层窗口functionEnumWindows(…

Delphi中获取GUID的函数

functionGetGUID:string;varGuid:TGUID;beginCreateGUID(Guid);Result:=GUIDToString(Guid);end;最近在寫程…