//校验手机号  function IsMobileNumber( num:string ):boolean;   begin     Result:=False;     if length( trim( Num ) ) <> 11 then Exit;     if ( ( copy( num, 1, 2) <> '13' ) and ( copy( num , 1, 2) <> '15' ) ) then Exit;     try       StrToInt(

Given a word, you need to judge whether the usage of capitals in it is right or not. We define the usage of capitals in a word to be right when one of the following cases holds: All letters in this word are capitals, like "USA". All letters in t

旅游电子商务中,预订酒店或订购门票时会以身份证作为消费凭证,为了防止客户误填身份证带来不必要麻烦,需要验证码格式及合法性,代码如下: /** * 判断身份证格式 * * @param idNum * @return */ public static boolean isIdNum(String idNum) { // 中国公民身份证格式:长度为15或18位,最后一位可以为字母 Pattern idNumPattern = Pattern.compile("(\\d{14}[0-9a-zA-Z])

package com.dsh.zealandweb.utils; import java.util.HashSet; import java.util.regex.Pattern; import org.apache.commons.lang3.StringUtils; public class IdCardUtil { /** 大陆地区地域编码最大值 **/ public static final int MAX_MAINLAND_AREACODE = 659004; /** 大陆地区地域编

互联网公司对身份证验证的需求越来越多,然而普通的小公司是无法对接公安部门的身份认证系统的.几乎都是在网上买一些大的互联网公司的一些认证服务.即使是便宜一些的认证价格也达到了10万次/万元.也就是一角钱一次了,还是挺贵哈.所以为了减少公司的开支,我们在拿到用户提交的身份证信息去认证前应该自己先检验一下身份证的格式,如果连最基本的身份证格式就不满足的话,我们完全可以直接驳回,不必走接下来的花钱认证流程了,而且也可以建立一个用户身份证表,把每次认证通过的数据存起来,以后每次都先从自己系统里的用户身份证

Json是一种轻量级传输数据格式,广泛应用互联网和各应用中.json主要採用键值对来表示数据项.多个数据项之间用逗号分隔,也能够用于数组.以下注重介绍一下在delphi中使用json,在delphi中使用json经常使用superobject单元文件.该文件能够在网上下载,最初接触json是在2011年,好久没用这不刚好有项目要用到又折腾了好久,以下做了一个简单的Demo,方便以后忘了能随时查看.详细的json使用能够參看万一老师的博客,记录的非常详细,以下的demo主要是将数据库记录转换为js

最近做了一个系统,涉及到对用户输入的身份证号进行校验,减少脏数据传入后台处理并降低企业验证成本,因此在接入层便对输入信息做格式强校验. 直接附上代码,可直接使用. package hope.identitycodecheck.demo; import java.text.DateFormat; import java.text.SimpleDateFormat; import java.util.Date; /** * * @author hp * * */ public class Ident

18位身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999<公民身份号码>中做了明确的规定. GB11643-1999<公民身份号码>为GB11643-1989<社会保障号码>的修订版,其中指出将原标准名称"社会保障号码"更名为"公民身份号码",另外GB11643-1999<公民身份号码>从实施之日起代替GB11643-1989.GB11643-1999<公民身份号码>主要内容如

(function(){ Validate={ data:{ // 加权因子 Wi : [ 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1 ], // 身份证验证位值.10代表X ValideCode : [ 1, 0, 10, 9, 8, 7, 6, 5, 4, 3, 2 ] }, /** * 身份证15位编码规则:dddddd yymmdd xx p * dddddd:地区码 * yymmdd: 出生年月日 * xx: 顺序类编码

有时候,我们做一些小软件就需要检测网络连接状态,比如想给你的软件加上类似QQ那样的系统消息,可是像我这样的穷人肯定是买不起服务器了,那我们只好另想办法,可以读取网页然后用浏览器显示,这个时候就需要判断网络状态.    我目前采用的判断方式有两种: 1.采用WinInet方式: uses WinInet; procedure TForm1.Button1Click(Sender: TObject);var  Flags: DWORD;begin  if InternetGetConnectedSt

公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成.排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码.1.地址码表示编码对象常住户口所在县(市.旗.区)的行政区划代码,按GB/T2260的规定执行. 2.出生日期码表示编码对象出生的年.月.日,按GB/T7408的规定执行.年.月.日代码之间不用分隔符.例:某人出生日期为1966年10月26日,其出生日期码为19661026. 3.顺序码表示在同一地址码所标识的区域范围内,对同年.同月.同日

本人根据歼10博主的此博文的思路进行改进,目的是高效的实现FormatDateTime('YYYY-MM-DD HH:NN:SS.ZZZ', Now); 在DelphiXE3 32Bits环境测试10,000,000次, Delphi自带的FormatDateTime = 20405 ms 歼10的优化函数  = 2683 ms 本文优化函数 = 1851 ms 在DelphiXE3 64Bits环境测试10,000,000次, Delphi自带的FormatDateTime = 18782 m

首先要记住json_encode返回的是字符串, 而json_decode返回的是对象 判断数据不是JSON格式: 复制代码代码如下: function is_not_json($str){      return is_null(json_decode($str));} 判断数据是合法的json数据: (PHP版本大于5.3) 复制代码代码如下:   function is_json($string) {  json_decode($string);  return (json_last_er

// 设置WINDOWS系统的短日期的格式SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd'); Application.UpdateFormatSettings := False;// 设定程序本身所使用的日期时间格式LongDateFormat := 'yyyy-MM-dd';ShortDateFormat := 'yyyy-MM-dd';LongTimeFormat := 'hh:nn:ss';Short

SuperObject 是开源的 Delphi 的 JSON 工具包,可生成 JSON 数据以及进行 JSON 解析. unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm6 = class(TForm) Button1: TButton; procedure Button1Click(S

检测用户是否具有administrator权限const SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5)); SECURITY_BUILTIN_DOMAIN_RID = $00000020; DOMAIN_ALIAS_RID_ADMINS = $00000220; function IsAdmin: Boolean; var hAccessToken: THandle; ptgGroups:

procedure TForm1.btn1Click(Sender: TObject); var sFile,sLine: TStrings; r,c:Integer; begin sFile := TStringList.Create; sFile.LoadFromFile('d:\1.txt'); sLine := TStringList.Create; do begin sLine.CommaText := sFile[r]; do begin mmo1.Lines.Add(sLine[c

找出以前的代码,写个随笔, 又想起以前的公司和以前的同事来, 希望以前的公司和同事事事顺意. //返回格式化的字符串function TfrmLedgerExVoucherLoad.GetFormatMonth(Month: Integer): string;begin if Month < 10 then Result := format('%.2d', [Month]) else Result := IntToStr(Month);end; {------------------------

<%#  Eval("数据").ToString()+" " %> 加上    Excel 中 不会显示科学计数法

function checkIdentity(identity){ var reg = /^[1-9]{1}[0-9]{14}$|^[1-9]{1}[0-9]{16}([0-9]|[xX])$/; if(reg.test(identity)){ return true; }else{ return false; } }

<?php $date1 = '2019-01-01'; $date2 = '2019-01-01 23:59'; $date3 = '2019-01-01 23:59:59'; $date4 = '2019-01'; function checkDateTime($date) { $patten = "/^\d{4}[\-](0?[1-9]|1[012])[\-](0?[1-9]|[12][0-9]|3[01])(\s+(0?[0-9]|1[0-9]|2[0-3])\:(0?[0-9]|