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

Delphi 中的自动引用计数使用规则

Delphi用户应该早已经熟悉自动引用计数的概念(ARC),Delphi很早就开始支持接口、动态数组和字符串的自动引用计数(DCC32、DCC64、DCCOSX),移动编译器则加入对类的自动引用计数支持,因此还加了入弱引用的概念,以…
类别:函数 标签: 作者:admin 日期:2018-03-29 23.22.28

delphi 采集功能代码GetStr

FunctionGetStr(STR_Source,STR_Start,STR_End:String):STring;VarI:Integer;S:String;beginforI:=Pos(STR_Start,STR_Source)+Length(STR_Start)toLength(STR_Source)dobeginifSTR_Source[i]=STR_EndthenBreak;S:=S+…
类别:函数 标签: 作者:admin 日期:2018-03-12 22.10.07

delphi GetFileHashMD5

单元:System.HashfunctionGetFileHashMD5(FileName:String):String;varHashMD5:THashMD5;Stream:TStream;Readed:Integer;Buffer:PByte;BufLen:Integer;beginHashMD5:=THashMD5.Create;BufLen:=16*1024;Buffer:=Allo…
类别:函数 标签: 作者:admin 日期:2018-02-27 15.47.09

delphi 检测链接和获取链接内容

usesWinInet;functionCheckUrl(Url:string):boolean;varhSession,hFile,hRequest:hInternet;dwIndex,dwCodeLen:dword;dwCode:array[1..20]ofchar;res:PChar;beginResult:=false;hSession:=InternetOpen('Mozilla/4.0…
类别:函数 标签: 作者:admin 日期:2018-02-26 00.15.53

delphi 根据窗口类判断程序是否运行

functionDelphiIDERunning:Boolean;beginResult:=FindWindow('TAppBuilder',nil)<>0;end;
类别:函数 标签: 作者:admin 日期:2018-02-24 01.39.37

delphi GetWindowHandle

functionGetWindowHandle(ProcessId:Cardinal):THandle;varhFound:THandle;functionEnumWindowsProcMy(_hwnd:HWND;ProcessId:Cardinal):BOOL;stdcall;vardwPid:Cardinal;beginGetWindowThreadProcessId(_hwnd,@dwPid…
类别:函数 标签: 作者:admin 日期:2018-02-20 21.44.07

delphi 获取计算机名称 函数

functionGetComputerNetName:string;varbuffer:array[0..255]ofchar;size:dword;beginsize:=256;ifGetComputerName(buffer,size)thenResult:=bufferelseResult:=''end;
类别:函数 标签: 作者:admin 日期:2018-02-13 10.29.09

delphi里FormatFloat的用法

delphi里FormatFloat的用法FormatFloat的用法声明:functionFormatFloat(constFormat:string;Value:Extended):string;overload;和上面一样Format参数为格式化指令字符,Value为Extended类型为什么是这个类型,因为它…
类别:函数 标签: 作者:admin 日期:2018-02-11 14.35.44

Delphi格式化函数Format、FormatDateTime和FormatFloat

1.Format根据指定所需要的格式,格式化字符串。原型:functionFormat(constFormat:string;constArgs:arrayofconst):string;例子:vars:string;begin//指令类型types:=Format('最大整数是:%d;最小整数是:%d',[MaxInt,…
类别:函数 标签: 作者:admin 日期:2018-02-11 14.34.32

Delphi 中Format的字符串格式化使用说明

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

delphi 四舍五入保留一位或两位小数

delphi四舍五入保留一位或两位小数写法,后面参数为保留小数点位数functionRoundFloat(f:double;i:integer):double;vars:string;ef:Extended;beginiff=0thenbeginResult:=0;Exit;end;s:='#.'+StringOfChar('0',i);if…
类别:函数 标签: 作者:admin 日期:2018-02-09 21.57.51

delphi GetMIMETypeFromFile 获取文件MIME类型

单元(usesIdGlobalProtocols)GetMIMETypeFromFile
类别:函数 标签: 作者:admin 日期:2018-02-07 10.52.10

delphi GetMIMEType 查询文件MIME类型函数

usesRegistry;functionGetMIMEType(FileName:String):String;var<brstyle="word-wrap:break-word;line-height:normal;font-family:Helvetica,Ari...
类别:函数 标签: 作者:admin 日期:2018-02-07 10.40.21

delphi URLEncode

functionURLEncode(s:string):string;vari:integer;source:PAnsiChar;beginresult:='';source:=pansichar(s);fori:=1tolength(source)doifnot(source[i-1]in['A'..'Z','a'..'z','0'..'9','-','_','~','.',':','/'])t…
类别:函数 标签: 作者:admin 日期:2018-02-07 01.11.17

delphi EncodeURIComponent

functionEncodeURIComponent(constASrc:string):UTF8String;const<spanstyle="color:#...
类别:函数 标签: 作者:admin 日期:2018-02-07 01.10.30

delphi StrLenWide 汇编统计字符串长度

functionStrLenWide(constStr:PWideChar):Cardinal;asm{Checkthefirstbyte}cmpwordptr[eax],0je@ZeroLength{Getthenegativeofthestringstartinedx}movedx,eaxnegedx@ScanLoop:movcx,[eax]addeax,2testcx,cxjnz@ScanL…
类别:函数 标签: 作者:admin 日期:2018-02-06 10.47.30

delphi PosAnsi

functionPosAnsi(constSubstr,S:AnsiString):Integer;varP:PAnsiChar;beginResult:=0;P:=AnsiStrPos(PAnsiChar(S),PAnsiChar(SubStr));ifP<>nilthenResult:=Integer(P)-Integer(PAnsiChar(S))+1;end;
类别:函数 标签: 作者:admin 日期:2018-02-06 10.46.38

delphi IntToHexAnsi

functionIntToHexAnsi(N:Integer;Digits:Byte):AnsiString;varBuf:array[0..7]ofByte;V:Cardinal;I:Integer;beginV:=Cardinal(N);I:=Length(Buf);ifDigits>IthenDigits:=I;repeatDec(I); ...
类别:函数 标签: 作者:admin 日期:2018-02-06 10.46.13

delphi IntToStrAnsi

functionIntToStrAnsi(N:Integer):AnsiString;varI:Integer;Buf:array[0..11]ofAnsiChar;Sign:Boolean;beginifN>=0thenSign:=FALSEelsebeginSign:=TRUE;ifN=Low(Integer)then&n...
类别:函数 标签: 作者:admin 日期:2018-02-06 10.45.51

delphi 字母大小写转换

{AuthorArnoGarrels-Feelfreetooptimize!}{It'sanywayfasterthantheRTLroutine.}functionLowerCaseAnsi(constS:AnsiString):AnsiString;varCh:AnsiChar;L,I:Integer;Source,Dest:PAnsiChar;begin&nb...
类别:函数 标签: 作者:admin 日期:2018-02-06 10.42.17