以下內容轉自：https://my.oschina.net/ousinka/blog/3048132
如何定義身份證號的正規表示式呢？
1、省份編碼
[1-9]\d{5}
2、年份
(18|19|20)?\d{2}
3、月份為 1, 3, 5, 7, 8, 10, 12，天數範圍為 01 - 31，匹配MMDD的正規表示式為：
(0[13578]|1[02])(0[1-9]|[12][0-9]|3[01])
4、月份為 4, 6, 9, 11，天數範圍為 01-30，匹配MMDD的正規表示式為：
(0[469]|11)(0[1-9]|[12][0-9]|30)
5、月份為 2，考慮平年情況，匹配MMDD的正規表示式為：
02(0[1-9]|[1][0-9]|2[0-8])
6、閏年
能被4整除但不能被100整除的年份。
(1[89]|20)(0[48]|[2468][048]|[13579][26])
能被400整除的年份，只有1900和2000兩個年份
(19|20)00
閏年的2月份有29天
(((1[89]|20)(0[48]|[2468][048]|[13579][26]))|((19|20)00))0229
7、校驗碼4位
\d{3}(\d|X|x)
8、包含閏年 yyyyMMdd：
((1[89]|20)\d{2}(((0[13578]|1[02])(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)(0[1-9]|[12][0-9]|30))|(02(0[1-9]|[1][0-9]|2[0-8]))))|((((1[89]|20)(0[48]|[2468][048]|[13579][26]))|((19|20)00))0229)
9、合併起來身份證正則式為：
[1-9]\d{5}(((1[89]|20)\d{2}(((0[13578]|1[0-2])(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)(0[1-9]|[12][0-9]|30))|(02(0[1-9]|[1][0-9]|2[0-8]))))|((((1[89]|20)(0[48]|[2468][048]|[13579][26]))|((19|20)00))0229))\d{3}(\d|X|x)
現在我們得到了身份證號的正規表示式，現在看看Delphi中如何使用他？
首先要引用System.RegularExpressions單元，然後見下面程式碼：
pattern:='^[1-9]\d{5}(((1[89]|20)\d{2}(((0[13578]|1[0-2])(0[1-9]|[12][0-9]|3[01]))|((0[469]|11)(0[1-9]|[12][0-9]|30))|(02(0[1-9]|[1][0-9]|2[0-8]))))|((((1[89]|20)(0[48]|[2468][048]|[13579][26]))|((19|20)00))0229))\d{3}(\d|X|x)$';
if TRegEx.Match(身份證號, pattern ).Success then