一、格式介绍：
【15位号码格式】
1、第l一6位数为行政区划代码;
2、第7-12位数为出生日期代码;
3、第13---15位数为分配顺序代码;
(1)、行政区划代码，是指公民第一次申领居民身份证时的常住户口所在地的行政地区。
(2)、出生日期代码，第7-8位数代表年份(年份前面二位数省略)，第9-10位数代表月份(月份为l位数的前面加零)。第11一12位数代表日期(日期为1位数的前面加零)。
(3)、分配顺序代码，是按人口数统一合理分配以固定顺序给予每个人的顺序号，最末一位数是奇数的分配给男性，偶数分配给女性。
【18位号码格式】
1. 1~6位为地区代码；
（其中1、2位数为各省级*的代码，3、4位数为地、市级*的代码，5、6位数为县、区级*代码。）
2. 7~14位为出生年月日
3.15~17位为顺序号，是县、区级*所辖派出所的分配码，每个派出所分配码为10个连续号码，例如“000-009”或“060-069”，其中单数为男性分配码，双数为女性分配码，如遇同年同月同日有两人以上时顺延第二、第三、第四、第五个分配码。如：007的就是个男生 而且和他同年月日生的男生至少有两个 他们的后四位是001* 和 003*
4.18位为效验位（识别码），通过复杂公式算出，普遍采用计算机自动生成。是前面17位的一种检验代码，如果你改变了前面某个数字而后面的效验代码不响应改变就会被计算软件判断为非法身份正号码。X也是效验代码的一种，代表数字10；
二.代码部分：
功能：
1.实现身份号码的有效性检查
2.实现身份号码出生日期与性别自动匹配
//检查身份证号码是否为有效
function CheckIDCard(IDCard: String):Boolean;
const
OLD_LENGTH = 15; //15位长度
NEW_LENGTH = 18; //18位长度
DaysOfMonths: array [1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31); //月天数数组
DaysOfMonths1: array [1..12] of Integer = (31,29,31,30,31,30,31,31,30,31,30,31);
var
Len: Integer;
AYear,AMonth,ADay : Integer;
function IsNum(Value: String):Boolean;
var
I: Integer;
begin
Result := True;
for I:=1 to Length(Value) do
begin
if not(Value[I] in['0'..'9']) then
begin
Result := False;
Exit;
end;
end;
end;
begin
Result := False;
Len := length(IDCard);
if (Len<>OLD_LENGTH) and (Len<>NEW_LENGTH) then Exit;
//检查是否为数字
if Len = OLD_LENGTH then
begin
//15位
if Not IsNum(IDCard) then Exit;
AYear := StrToInt('19'+Copy(IDCard,7,2));
AMonth := StrToInt(Copy(IDCard,9,2));
ADay := StrToInt(Copy(IDCard,11,2));
end else
begin
//18位
if IDCard[NEW_LENGTH] = 'X' then
begin
if Not IsNum(Copy(IDCard,1,NEW_LENGTH-1)) then Exit;
end else
begin
if Not IsNum(IDCard) then Exit;
end;
//检查校验位
if IDCard[NEW_LENGTH] <> IDCardCheckSum(IDCard) then Exit;
AYear := StrToInt(Copy(IDCard,7,4));
AMonth := StrToInt(Copy(IDCard,11,2));
ADay := StrToInt(Copy(IDCard,13,2));
end;
//检查年月日的有效性
if not(AMonth in[1..12]) then Exit;
if(IsLeapYear(AYear)) then
begin
if not(ADay in[1..DaysOfMonths1[AMonth]]) then Exit;
end else
begin
if not(ADay in[1..DaysOfMonths[AMonth]]) then Exit;
end;
Result := True;
end; //将15的身份证号码转换为18位
function IDCardTo18(IDCard: string):string;
const
OLD_LENGTH = 15;
var
newid: string;
begin
if length(IDCard) <> OLD_LENGTH then
begin
result:= IDCard;
Exit;
end
else begin
newid:= IDCard;
insert('19', newid, 7);
result:= newid + IDCardCheckSum(IDCard);
end;
end; //代码实现部分
procedure TForm1.Query1idcardSetText(Sender: TField;const Text: String);
var
__Text,__S: String;
__idcard:string;
__b : boolean;
__sex:Integer;
begin
inherited;
__Text := Text;
if __Text = '' then Exit;
__idcard:=__text;
__b:= CheckIDCard(__Text); //调用CheckIDCard函数，检查号码的有效性
if (length(__idcard) >6) and (length(__idcard)<=12) then begin
if ((Ord(__idcard[1])>=64) and (Ord(__idcard[1])<=126)) or ((length(__idcard)>6) and (length(__idcard)<=12)) then begin
__b:=true;
end;
end;
if __b then begin
Sender.Value := __Text;
//15位
if Length(__Text)=15 then begin
//匹配出生日期；
__S:='19'+copy(__Text,7,2)+'-'+copy(__Text,9,2)+'-'+copy(__Text,11,2);
Query1birthday.Value:=strtodate(__S);
//匹配性别；
__sex:=StrToInt(__Text[15]);
if __sex mod 2 =0 then begin
Query1guestsex.Value:=1
end else Query1guestsex.Value:=0
end;
//18位
if Length(__Text)=18 then begin
__S:=copy(__Text,7,4)+'-'+copy(__Text,11,2)+'-'+copy(__Text,13,2);
Query1birthday.Value:=strtodate(__S);
__sex:=StrToInt(__Text[17]);
if __sex mod 2 =0 then begin
Query1guestsex.Value:=1
end else Query1guestsex.Value:=0
end;
end else
raise Exception.Create('输入的身份证号码无效，请检查！');
end;