Delphi中编写参数个数可变的函数

这是从Delphi帮助中摘出的一个例子，稍做改动。ProgramTest;{$APPTYPECONSOLE}usesWindows,System,SysUtils…

delphi 提取html网页源文件纯文本函数可做采集

functionGetHtmltxt(aHtml:string):string;functionDelStrbyTag(aHtml,aFtTag,aEndTag:string):string;//除…

Delphi 操作 PDF -- 使用 Acrobat SDK 初探

Delphi操作PDF--使用AcrobatSDK初探小弟前陣子尋找用Delphi列印PDFsolution,發現AcrobatSDK提供蠻多API可用…

delphi2010:把stringgrid数据保存到EXCEL

函数定义如下：functionExportStrGridToExcel(Args:arrayofconst):Boolean;variCount,jCount:Integer;XLApp…

Delphi XE2获取汉字拼音首字母

DelphiXE2获取汉字拼音首字母functionCnPYIndex(constCnS****ing:s****ing):s****ing;****返回中文的拼音首…

delphi superobject 序列数据集

delphisuperobject序列数据集unituDBJson;interface{$HINTSOFF}usesSysUtils,Classes,Variants,DB,DBClient…

DELPHI WM_CopyData 用法

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…

Delphi调用WinAPI: GetSystemMetrics - 获取系统度量等数值信息

GetSystemMe****ics(nIndex:Integer{参数,详见下表}):Integer;举例-获取屏幕分辨率:varcx,cy:Integer;begin…

delphi 公用函数

使用方法,uses本单元——>使用如:Pub.MsgBox('你好，欢迎使用本公用函数！');ShowMessage(Pub.PathExeDir);…

delphi 通过机器名读取IP地址的代码

functionprocedureTForm1.nametoip(name:string):string;varWSAData:TWSAData;HostEnt:PHostEnt;beginresul…

delphi 不用控件用函数实现发Email

useswindows,messages,winsock,sysutils;{$R*.RES}constCRLF=#13#10;exename:pchar='邮箱信使';varthd:arra…

delphi 把字节数显示成kb或gb的函数

经常用到把字节数显示成kb或gb，函数如下functionFormatByteSize(constbytes:Longint):string;constB=1;//b…

delphi 详解Variant 的相关函数

1.VarArrayCreate()和VarArrayOf()这两个常用就不说了2.VarArrayRedim()函数能修改variant数组的最高限。3.…

delphi ExtCtrls.Frame3D

delphiExtCtrls.Frame3DusesExtCtrls;procedureTForm1.FormPaint(Sender:TObject);varR1,R2:TRect;beginR1:…

delphi CreateMessageDialog

delphiCreateMessageDialogunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,…

delphi X 的 Y 次方

delphiX的Y次方varx,y,z:Real;beginx:=2;y:=3;{使用Math.Power}z:=Math.Power(x,y);ShowMessage(FloatToStr…

delphi 在 API 函数中使用 PChar 参数的几种方法

在API函数中使用PChar参数的几种方法//以GetWindowsDirectory为例:{以静态数组做缓冲区}procedureTForm1.Bu…

delphi Int64 与 Currency

Int64与CurrencyprocedureTForm1.Button1Click(Sender:TObject);varc:Currency;i:Int64absolutec;beginc:=1…

delphi获取 斐波那契数列　的函数

delphi获取"斐波那契数列"的函数{斐波那契数列:1、2、3、5、8、13、21、34、55、89、144...等于前两…

delphi 获取程序自身大小的函数

获取程序自身大小的函数functionGetExeSize:Int64;var</s...