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

delphi CreateMessageDialog

delphiCreateMessageDialogunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;B...
类别:函数 标签: 作者:admin 日期:2012-05-21 11.36.04

delphi X 的 Y 次方

delphiX的Y次方varx,y,z:Real;beginx:=2;y:=3;{使用Math.Power}z:=Math.Power(x,y);ShowMessage(FloatToStr(z));//8{不想usesMath,就用System.Exp、System.Ln}z:=&nb...
类别:函数 标签: 作者:admin 日期:2012-05-21 11.35.17

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

在API函数中使用PChar参数的几种方法//以GetWindowsDirectory为例:{以静态数组做缓冲区}procedureTForm1.Button1Click(Sender:TObject);varbuf:array[0..MAX_PATH-1]ofChar;beginGetWindowsDirectory(buf,SizeOf(buf…
类别:函数 标签: 作者:admin 日期:2012-05-21 11.32.03

delphi Int64 与 Currency

Int64与CurrencyprocedureTForm1.Button1Click(Sender:TObject);varc:Currency;i:Int64absolutec;beginc:=1234.5678;ShowMessage(IntToStr(i));//12345678end;procedureTForm1.Button2Click(Sender:TObject);vari:In…
类别:函数 标签:Int64 Currency 作者:admin 日期:2012-05-21 11.31.10

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

delphi获取"斐波那契数列"的函数{斐波那契数列:1、2、3、5、8、13、21、34、55、89、144...等于前两数之和}{昂纳多·斐波那契(LeonardoFibonacci,1170-1240,意大利数学家)}usesTypes;{参数2是要获取的总数}p…
类别:函数 标签: 作者:admin 日期:2012-05-21 11.29.09

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

获取程序自身大小的函数functionGetExeSize:Int64;var</s...
类别:函数 标签: 作者:admin 日期:2011-11-18 22.45.48

Delphi判断IP地址是否正确

functionIsValidIP(Str:string):Boolean;vari,PartCount{用多少段,以点号分开}:Integer;Part:string;begin
类别:函数 标签: 作者:admin 日期:2011-08-25 09.14.01

一些不常用的且功能相当有用的DELPHI函数

1、functionComparastr(consts1,s2:string):Integer;比较两字符串,区别大小写;注:由于此函数操作是基于每个条件的8位序数值,所以返回的结果,如果s1<s2就返回小于0如果相等就为0返回就大于零;众所周知,DELPHI语…
类别:函数 标签: 作者:admin 日期:2011-08-24 21.20.00

delphi转换长文件名函数 GetShortName

//-----------------------------------------------------------functionGetShortName(sLongName:string):string;//转换长文件名varsShortName:string;...
类别:函数 标签: 作者:admin 日期:2011-08-24 21.01.53

delphi中Format函数的用法

delphi中Format函数的用法Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:functionFormat(constFormat:string;constArg…
类别:函数 标签: 作者:admin 日期:2011-08-22 16.23.38

Delphi之Format函数

Format是一个很常用方法,并且使用它可以实现众多格式的转变.因此学会使用Format是非常重要的.首先看它的声明:functionFormat(constFormat:string;constArgs:arrayofconst):string;overload;事实上Format方法有两个种…
类别:函数 标签: 作者:admin 日期:2011-08-22 16.21.53

delphi 实现从下载链接提取文件名的函数

functionEx****actUrlFileName(constUrl:s****ing):s****ing;var//www.delphitop.coms****:s****ing;begins****:=reverses****ing(Url);s****:=copy(s****,1,pos('/',s****)-1);s****:=reverses****ing(s***…
类别:函数 标签: 作者:admin 日期:2011-08-20 12.24.27

Delphi Program Name、Process ID、Window Handle、Process Handle 的转换函数

//GetProcessIDByProgramName(IncludePathorNotInclude)functionGetPIDByProgramName(constAPName:string):THandle;//GetWindowHandleByProgramName(IncludePathorNotInclude)functionGetHWndByProgramName(constAPN…
类别:函数 标签: 作者:admin 日期:2011-08-19 20.59.28

Delphi 一个高效的正整数排序函数

unitUnit1;interface<sp...
类别:函数 标签: 作者:admin 日期:2011-08-19 20.57.26

delphi downloadtomemory

functiondownloadtomemory(URL:string):string;constBufferSize=3000;varhSession,hURL:HInternet;Buffer:Array[1..buffersize]ofByte;BufferLength:DWORD;b1:Array[1..buffersize]ofByte;rezultat:string;beginhSes…
类别:函数 标签: 作者:admin 日期:2011-08-18 12.48.15

delphi SetTimer 功能:定时API

SetTimer功能:定时API使用API来做定时器是很简单的,主要就是一个SetTimer函数和KillTimer函数,下面是一个简单的例子:vari:Integer=0;procedureTimerProc(hwnd:HWND;uMsg,idEvent:UINT;dwTime:DWORD);stdcall;beg…
类别:函数 标签: 作者:admin 日期:2011-08-18 11.39.07

delphi 给力版 GetProcAddress

上联合翻宝贝,一个不小心,翻到一个给力的函数==虽然不知道作者是谁,深深膜拜作者一下先constMAX_API_STRING_LENGTH=150;type<spanstyle="font-si...
类别:函数 标签: 作者:admin 日期:2011-08-16 09.37.53

delphi GetForegroundWindow、GetActiveWindow

GetForegroundWindow函数功能:该函数返回前台窗口(用户当前工作的窗口)。系统分配给产生前台窗口的线程一个稍高一点的优先级。函数原型:HWNDGetForegroundWindow(VOID)参数:无。返回值:函数返回前台窗回的句…
类别:函数 标签: 作者:admin 日期:2011-08-12 22.00.28

delphi 由类名获取父类

procedureTForm1.Button1Click(Sender:TObject);varTName:Tclass;beginListBox1.Clear;//要先注册类,才能使用GetClassRegisterClasses([TButton,TEdit,TListBox,TRadioButton,TPanel]);TName:=GetClass(Edit1.Text)…
类别:函数 标签: 作者:admin 日期:2011-08-11 14.47.54

delphi有无生成空格的函数,Like VB的space(1)

delphi有无生成空格的函数,LikeVB的space(1)?━━━━━━━━━━━━━━━━━━━━━首部functionDupeString(constAText:string;ACount:Integer):string;$[StrUtils.pas功能返回字符串AText的ACount个复本说明…
类别:函数 标签: 作者:admin 日期:2011-08-11 09.18.13