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

delphi MEID校验码算法

EID校验码算法:
类别:函数 标签: 作者:admin 日期:2013-11-12 11.21.29

Delphi 延迟时间函数

functionritime(m:integer):integer;varot:integer;beginot:=GetTickCount;RepeatApplication.ProcessMessages;Until((GetTickCount-ot)>=longInt(m));end;
类别:函数 标签: 作者:admin 日期:2013-10-10 20.26.01

Delphi高效的Byte转化Sring 函数

functionByteToHex(Src:Byte):String;beginSetLength(Result,2);asmMOVEDI,[Result]MOVEDI,[EDI]MOVAL,SrcMOVAH,AL//SavetoAHSHRAL,4//OutputHigh4BitsADDAL,"0"CMPAL,"9"JBE@@OutCharLoADDAL,"A"-"9"-1@@OutCharLo:…
类别:函数 标签: 作者:admin 日期:2013-10-10 20.12.03

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

18身份证号码的结构公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位校验码。1、地址码表示编码对象常住户口所在…
类别:函数 标签: 作者:admin 日期:2013-10-10 15.09.55

Delphi中实现变长函数笔记

前面从网络中收藏加转贴了一部分关于变长参数函数的笔记。反正休闲没事,于是就专门的研究研究了如何用Delphi来实现类似于C语言中Printf这种可以传递任意多个参数的函数。这个实际上来说也不太难,只要俺们都熟悉函数…
类别:函数 标签: 作者:admin 日期:2013-10-08 09.06.28

delphi 中的split 函数

delphi中的split函数类似于vb中的split函数typeuserarray=arrayofstring;functionsplit(s:string;dot:char):userarray;varstr:userarray;i,j:integer;begini:=1;j:=0;SetLength(str,255);whilePos(dot,s)>0do//Pos返…
类别:函数 标签: 作者:admin 日期:2013-10-08 09.00.11

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

delphiGetHomePath-获取用户程序数据目录usesSystem.IOUtils;procedureTForm1.FormCreate(Sender:TObject);varS:string;begin{三种方法结果一致:C:\Users\wy\AppData\Roaming}S:=GetHomePath;/...
类别:函数 标签: 作者:admin 日期:2013-08-13 12.58.10

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