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

delphi 过滤开头 结尾 全部 空格的函数

functionTrimAnsi(constS:AnsiString):Ansistring;varI,L:Integer;beginL:=Length(S);I:=1;while(I<=L)and(S[I]<='')doInc(I);ifI>LthenResult:=''elsebeginwhileS[L]<=''doDec(L);Result:=Copy(S,I,L-I+1);end;end;…
类别:函数 标签: 作者:admin 日期:2018-02-06 10.41.30

delphi DecToBinStr

functionDecToBinStr(N:Integer):string;varS:string;i:Integer;Negative:Boolean;beginNegative:=False;ifN<0thenNegative:=True;N:=Abs(N);fori:=1toSizeOf(N)*8dobeginifN<0thenS:=S+'1'elseS:=S+'0';...
类别:函数 标签: 作者:admin 日期:2018-02-06 10.37.31

delphi HexToInt

functionHexToInt(constHexStr:string):LongInt;variNdx:integer;cTmp:Char;beginResult:=0;foriNdx:=1toLength(HexStr)dobegincTmp:=HexStr[iNdx];//字符串string内存中的第一位是length标识casecTmpof'0'..'9':Res…
类别:函数 标签: 作者:admin 日期:2018-02-06 10.36.04

delphi 比较俩组IP地址是否一样

functionCompareIP(IP1,IP2:arrayofbyte):boolean;varI:integer;beginResult:=False;ForI:=0To3dobeginifIP1[I]<>IP2[I]ThenExit;end;Result:=True;end;
类别:函数 标签: 作者:admin 日期:2018-02-06 10.34.45

delphi 比较俩组MAC地址

functionCompareMAC(MAC1,MAC2:arrayofbyte):boolean;varI:integer;beginResult:=False;ForI:=0To5dobeginifMAC1[I]<>MAC2[I]ThenExit;end;Result:=True;end;
类别:函数 标签: 作者:admin 日期:2018-02-06 10.34.20

delphi IP地址转换Str字符

functionIPToStr(ip:arrayofUCHAR):string;beginResult:=Format('%d.%d.%d.%d',[ip[0],ip[1],ip[2],ip[3]]);end;
类别:函数 标签: 作者:admin 日期:2018-02-06 10.31.19

16 位浮点运行 Pascal/Delphi

具有16位精度的浮点数主要用于计算机图形学。它们也被称为半精度浮点数(有一半的精度为32位浮点数)。这里有一个符号位,5位指数,还有10位为mantissa。由于有限的精度(在普通的cpus/fpus中没有支持),半浮点数实际上…
类别:函数 标签: 作者:admin 日期:2018-02-03 09.56.42

Delphi pSafeArray与TBytes类型转换

虽然Delphi有这自己独特的语言优势,但是跟其他语言加解密互通时,处理显得尤为麻烦。比如3DES加解密,网上下载的一些加解密方法加密的字符使用java无法解密,或者java加密的文本,无法用D解密。无奈之下使用其他语言…
类别:函数 标签: 作者:admin 日期:2018-02-02 18.25.47

delphi 得到IP地址最后一个点后面的值

functionExtractIP(constS:String):String;varI,L,K1,K2:Integer;ip:string;beginip:=S+'.';L:=Length(ip);result:='';K1:=0;K2:=0;forI:=Ldownto1do//www.delphitop.com原创随便转载ifip[I]='.'then...
类别:函数 标签: 作者:admin 日期:2018-01-31 23.50.37

Delphi 常用函数记录

//判断是否是数字functionIsNumeric(sDestStr:string):Boolean;//简写多余汉字functionSimplifyWord(sWord:string;iMaxLen:Integer):string;//读写取注册表中的字符串值functionReadRegStr(sDWName,KeyName:string;S…
类别:函数 标签: 作者:admin 日期:2018-01-30 10.32.33

delphi BytesToFile

procedureBytesToFile(bData:TByteArray;sPath:string);varhFile:THandle;dWritten:DWORD;beginhFile:=CreateFile(PChar(sPath),GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);ifhFil…
类别:函数 标签: 作者:admin 日期:2018-01-30 09.13.57

delphi CopyFileProgressBar 拷贝文件显示进度条

CopyFileProgressBar(pwidechar(ListBox1.Items.Strings[I]),pwidechar(NewDir+'\'+ExtractFileName(ListBox1.Items.Strings[I])));procedureCopyFileProgressBar(getPath,setPath:string);vargetStream,setStream:T…
类别:函数 标签: 作者:admin 日期:2018-01-29 21.35.46

delphi 分离网址链接最后一层文件目录

functionEx****actURLName(constS:S****ing):S****ing;varI,L,K1,K2:Integer;beginL:=Length(S);result:='';K1:=0;K2:=0;forI:=Ldownto1doifS[I]='/'thenifK2=0thenK2:=I<...
类别:函数 标签: 作者:admin 日期:2018-01-29 20.19.24

delphi 分享三个随机字符串

usesmath;functionGenID:String;varb,x:byte;beginResult:='{';Randomize;forb:=1to8dobeginifRandom(100)>50thenResult:=Result+chr(RandomRange(48,57))elseResult:=Result+chr(RandomRange(65,90));end;Result:=R…
类别:函数 标签: 作者:admin 日期:2018-01-29 20.00.35

delphi 读取流信息

functionReadString(TheStream:TStream;Length:integer):string;varn:longword;t:byte;beginSetLength(result,length);forn:=1tolengthdobeginTheStream.Read(t,1);result[n]:=Chr(t);end;end;functionReadNullTermi…
类别:函数 标签: 作者:admin 日期:2018-01-29 18.21.15

delphi ValidateName 过滤特殊字符

functionValidateName(n:string):string;varbanned,res:string;i,j:integer;beginres:=n;banned:='\/:*?"<>|';fori:=1toLength(res)doforj:=1toLength(banned)doifres[i]=banned[j]thenres[i]:='';Result:=res;end;
类别:函数 标签: 作者:admin 日期:2018-01-29 17.59.34

delphi GetHref 获取<a href="链接"></a>中href的数据

functionGetHref(href,s:s****ing):s****ing;varp:integer;beginp:=pos(href,s);if(p=0)or(s[Length(href)+p]<>'=')thenbeginResult:='';Exit;endelsebeginDelete(s,1,p+Length(href)+1);p:=pos(…
类别:函数 标签: 作者:admin 日期:2018-01-29 17.36.25

Delphi中CoInitialize作用

CoInitialize(LPVOID),它将以特定参数调用CoInitializeEx,为当前单元初始化COM库,并标记协同模式为单线程模式。参数必须为NULL。这是关于OLE和COM的问题。CoInitializeEx(LPVOID),新版本,可以用参数指定协同模式…
类别:函数 标签: 作者:admin 日期:2018-01-29 14.09.44

delphi MailURLMayBeInvalid 检测邮箱地址有效性

functionMailURLMayBeInvalid(consts:string):Boolean;vari:Integer;c:string;begin//'',ä,ö,ü,ß,[,],(,),:inEMail-AddressResult:=(Trim(s)='')or(Pos('',AnsiLowerCase(s))>0)or(Pos('ä',Ans…
类别:函数 标签: 作者:admin 日期:2018-01-28 20.26.23

delphi StringToWideString WideStringToString

{:ConvertsUnicodestringtoAnsistringusingspecifiedcodepage.@paramwsUnicodestring.@paramcodePageCodepagetobeusedinconversion.@returnsConvertedansistring.}functionWideStringToString(constws:WideString;co…
类别:函数 标签: 作者:admin 日期:2018-01-28 18.44.26