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

delphi System.SysUtils.TStringHelper

delphiSystem.SysUtils.TStringHelper大小写转换:--------------------------------------------------------------------------------functionToLower:string;functionToLower(LocaleID:TLocaleID):string;function…
类别:函数 标签: 作者:admin 日期:2013-08-13 12.57.21

delphi 62 进制的简单实现

62进制需要的字符及次序:0..9a..zA..Z;只实现了62进制字符串与正整数的互换.--------------------------------------------------------------------------------unitH62;interfaceusesSysUtils;functionIntToH62(N:…
类别:函数 标签: 作者:admin 日期:2013-07-05 14.29.03

delphi中move 函数额用法

varpSource,pDest:PChar;len:integer;.......................//一些代码Move(pSource,pDest,len);//错误Move(pSource^,pDest^,len);//正确看起来确实好像是传值,而不是传地址,但是各位别忘了,这不是C,C++,而是…
类别:函数 标签: 作者:admin 日期:2013-03-25 16.17.57

Delph i判断IP地址是否正确

functionIsValidIP(strIP:string):Boolean;vari,PartCount{用多少段,以点号分开}:Integer;Part:string;beginPartCount:=0;whilestrIP<>''dobegini:=Pos('.',strIP);ifi=0thenbegin<...
类别:函数 标签: 作者:admin 日期:2013-03-25 16.17.17

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

delphiEnumWindows获取窗体句柄进程ID窗体信息//EnumWindows的功能是遍历所有顶层窗口functionEnumWindows(lpEnumFunc:TFNWndEnumProc;{回调函数指针}lParam:LPARAM{给回调函数的参数,它对应回调函数的第二个参数}):…
类别:函数 标签: 作者:admin 日期:2013-03-25 15.44.07

Delphi中获取GUID的函数

functionGetGUID:string;varGuid:TGUID;beginCreateGUID(Guid);Result:=GUIDToString(Guid);end;最近在寫程序中需要分析文本文件,文件中的結果需要保存到數據庫,文件內容分兩個部分:一部分基本信息,一部分是詳細…
类别:函数 标签: 作者:admin 日期:2013-03-21 20.32.26

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

这是从Delphi帮助中摘出的一个例子,稍做改动。ProgramTest;{$APPTYPECONSOLE}usesWindows,System,SysUtils;functionMakeStr(constArgs:arrayofconst):string;varI:Integer;beginResult:='';forI:=0toHigh(Args)dowi…
类别:函数 标签: 作者:admin 日期:2013-03-20 09.48.02

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

functionGetHtmltxt(aHtml:string):string;functionDelStrbyTag(aHtml,aFtTag,aEndTag:string):string;//除去制点tag之间的数据varaFt,aBk:integer;TempStr,BackStr:string;beginTempStr:=aHtml;BackStr:='';whileTe…
类别:函数 标签: 作者:admin 日期:2013-03-20 09.28.34

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

Delphi操作PDF--使用AcrobatSDK初探小弟前陣子尋找用Delphi列印PDFsolution,發現AcrobatSDK提供蠻多API可用的..需要完整的API可到下面網址尋找:AdobeSolutionsNetworkhttp://partners.adobe.com/asn/tech/pdf/acroba…
类别:函数 标签: 作者:admin 日期:2013-03-08 22.07.00

delphi2010:把stringgrid数据保存到EXCEL

函数定义如下:functionExportStrGridToExcel(Args:arrayofconst):Boolean;variCount,jCount:Integer;XLApp:Variant;Sheet:Variant;I:Integer;beginResult:=False;ifnotVarIsEmpty(XLApp)thenbeginXLApp.DisplayAler…
类别:函数 标签: 作者:admin 日期:2013-01-25 15.09.15

Delphi XE2获取汉字拼音首字母

DelphiXE2获取汉字拼音首字母functionCnPYIndex(constCnString:string):string;{返回中文的拼音首字母}constChinaCode:array[0..25,0..1]ofInteger=((1601,1636),(1637,1832),(1833,2077),(2078,2273),(2274,2301),(…
类别:函数 标签: 作者:admin 日期:2013-01-24 13.14.29

delphi superobject 序列数据集

delphisuperobject序列数据集unituDBJson;interface{$HINTSOFF}usesSysUtils,Classes,Variants,DB,DBClient,SuperObject;typeTTableJSon=classprivateconstcstFieldType='FieldType';...
类别:函数 标签: 作者:admin 日期:2013-01-24 13.13.22

DELPHI WM_CopyData 用法

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComCtrls;typeTForm1=class(TForm)Button1:TButton;Edit1:TEdit;Edit2:TEdit;procedureButton1Click…
类别:函数 标签: 作者:admin 日期:2013-01-21 13.00.35

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

GetSystemMe****ics(nIndex:Integer{参数,详见下表}):Integer;举例-获取屏幕分辨率:varcx,cy:Integer;begin{通过GetSystemMe****ics函数获取屏幕分辨率}cx:=GetSystemMe****ics(SM_CXSCREEN);cy:=GetSystemMe****ics…
类别:函数 标签:GetSystemMe****ics 作者:admin 日期:2013-01-20 21.49.40

delphi 公用函数

使用方法,uses本单元——>使用如:Pub.MsgBox('你好,欢迎使用本公用函数!');ShowMessage(Pub.PathExeDir);//////////////////////以下源码开始{$DEFINEDelphi6}//D5下不要此句unitPubFuncUnit;interfaceusesWindows…
类别:函数 标签: 作者:admin 日期:2013-01-09 12.44.15

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

functionprocedureTForm1.nametoip(name:string):string;varWSAData:TWSAData;HostEnt:PHostEnt;beginresult:='';WSAStartup(2,WSAData);HostEnt:=gethostbyname(PChar(name));ifHostEnt<>nilthenbeginwithHostEnt^d…
类别:函数 标签: 作者:admin 日期:2013-01-06 09.57.37

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

useswindows,messages,winsock,sysutils;{$R*.RES}constCRLF=#13#10;exename:pchar='邮箱信使';varthd:array[1..1000]ofinteger;tid:array[1..1000]ofdword;faint,hMutex,mcount,speed,newtime,oldtime,num,count,er…
类别:函数 标签: 作者:admin 日期:2013-01-06 09.47.12

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

经常用到把字节数显示成kb或gb,函数如下functionFormatByteSize(constbytes:Longint):string;constB=1;//byteKB=1024*B;//kilobyteMB=1024*KB;//megabyteGB=1024*MB;//gigabytebeginifbytes>GBthenresult:=FormatFl…
类别:函数 标签: 作者:admin 日期:2012-12-28 15.31.12

delphi 详解Variant 的相关函数

1.VarArrayCreate()和VarArrayOf()这两个常用就不说了2.VarArrayRedim()函数能修改variant数组的最高限。3.VarArrayDimCount()函数返回Variant数组的维数,4.VarArrayLowBound()和VarArrayHighBound()函数分别返回Va…
类别:函数 标签:Variant 作者:admin 日期:2012-12-28 15.28.07

delphi ExtCtrls.Frame3D

delphiExtCtrls.Frame3DusesExtCtrls;procedureTForm1.FormPaint(Sender:TObject);varR1,R2:TRect;beginR1:=Rect(10,10,150,50);Frame3D(Canvas,R1,clBlack,clSilver,1);R2:=Bounds(10,80,140,40);Frame3D(Canvas,R2…
类别:函数 标签: 作者:admin 日期:2012-05-21 11.37.00