华华软件工作室

摘要： $ss = 123; //你要测试的数字 if(preg_match('/^(0(?=1)|1(?=2)|2(?=3)|3(?=4)|4(?=5)|5(?=6)|6(?=7)|7(?=8)|8(?=9)){2}\d$/',$ss)){ echo "是顺子"; }else{ echo "不是顺子"; 阅读全文

摘要： Delphi程序在运行着，有时想获取一些程序运行的值的话，可以用下面的输出日志的函数来实现 、 procedure WriteLog(sContent: string); //写入日志 var tFile: TextFile; filename: string; logDir:string; beg 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const InputboxMessage = WM_US 阅读全文