delphi HTTPEncode

functionHTTPEncode(constAStr:WideString):WideString;//basedonhttp://marc.durdin.net/2012/07/indy-tid…

delphi中关键字inherited

A是基类、B继承A、C继承B、若C函数中有inherited方法，则C中所调用的以及实现的就是全为B中的，同样，B中若…

delphi Application.ProcessMessage作用

运行一个非常耗时的循环，那么在这个循环结束前，程序可能不会响应任何事件，按钮没有反应，程序设置无法绘…

delphi 顺序查找与二分查找

delphi中字符串与16进制、10进制转换函数

Delphi实现进制转化（2进制，8进制，10进制，16进制）

functionIntToHex(Value:Integer;Digits:Integer):string;overload;functionIntToHex(Value:Int64;Digits:I…

DELPHI中使用Tlist类的简单分析

我在上面的BLOG中写到了使用指针的方法。在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简…

Delphi 通得进程ID获取主窗口句柄

只知道进程ID，获取主窗口句柄的方法如下：通过EnumWindows枚举所有窗口使用GetWindowThreadProcessID，通过…

Delphi不占CPU的延时函数

functionDelay(MaxWaitTime:Cardinal):Boolean;varI:Integer;varWaitedTime:Cardinal;beginWaitedTime:=0;w…

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

functionCheckUrlFileExists(constaURL:string):Boolean;//usesWinInet;varhSession,hfile:hInternet;dwind…

delphi url取得文件名

functionGetFileNameFromURL(constaURL:string):string;varts:TStrings;begin//从url取得文件名ts:=TString…

XE7提示找不到SharedActivityContext函数

XE7提示找不到SharedActivityContext函数，加入以下单元引用：{$IFDEFANDROID}{$IFCompilerVersion>=27.0}/…

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

//字串含中文byAonefunctionIsIncludeChinese(Str:String):Boolean;vari:Integer;UCS4Str:UCS4String;begin…

delphi 比较版本号

感谢竹子写的比较版本号的方法。比较版本号functionTFServerMain.CompareVersion(constFileVersion1,FileVe…

delphi 延时程序

ProcedureTForm1.Delay(Msecs:Integer);varFirstTickCount:real;beginFirstTickCount:=GetTickCount;Repeat…

delphi 小数点四舍五入问题

functionARoundN(v:Double;n:Integer):Double;varI:Integer;beginresult:=v;forI:=0ton-1dobeginresult:=re…

Delphi StreamToHexStr

functionStreamToHexStr(AStream:TStream):String;constHexChars:array[0..15]ofChar='0123456789ABCDEF';v…

Delphi HexStrToStream

functionHexStrToStream(AHexStr:String;AStream:TStream):Boolean;variLen:Integer;Buff:String;P1,P2:PCh…

delphi xe HTTPEncode

functionHTTPEncode(constAStr:String):String;constNoConversion=['A'..'Z','a'..'z','*','@','.','_','-'…

Delphi自有的MD5函數

我比较喜欢使用Delphi自带的单元和控件，这样对于软件产品的升级十分有益。就拿MD5单元的升级来说，从D6升级…

Delphi中提取网址链接分路径

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