根据身份证地址拆分省市区

//根据身份证地址拆分省市区  
 
//身份证号
social_no := cdsIDcardDataTmp.FieldByName('social_no').AsString; 
//身份证地址
home_street := cdsIDcardDataTmp.FieldByName('home_street').AsString; 

//查询省市字典表
with cdsSql do
begin
  Close;
  Data := Null;
  CommandText := 'select top 1 * from zd_district_code ' 
    + ' where name = SUBSTRING(' + QuotedStr(home_street) + ', 1, LEN(name)) '
    + ' order by LEN(name) desc ';
  Open;

  //返回地区编码
  if not IsEmpty then
    home_district := Trim(FieldByName('name').AsString)
  else
    home_district := copy(social_no, 1, 6);
end;