獲取年齡與根據用戶輸入需求自動調整輸入法[1]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    通過身份證號獲取年齡

    在設計數據庫時如果表中有身份證號字段就可以不添加年齡字段因為年齡可以根據身份證號計算出來也符合范式要求本例是在錄入身份證號文本框中錄入身份證號單擊提取年齡按鈕在年齡文本框中顯示通過身份證號計算出來的年齡如圖所示

http://developcsaicn/delphi/images/jpg>
圖  通過身份證號獲取年齡

    在提取年齡按鈕的單擊事件中首先判斷身份證號碼位數（位還是位）然後按照不同位數的身份證號的編碼規則解析字段串從中提取出年份然後與當前年份相減即可主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
      Year: String;
      CardNo: String;
    begin
      CardNo := Trim(EditCardNoText);
      if Length(CardNo) = then
       Year := + Copy(CardNo );
      if Length(CardNo) = then
       Year := Copy(CardNo );
      EditAgeText := IntToStr(YearOf(Date) StrToInt(Year));
    end;

     說明使用YearOf方法需要引用DateUtils單元

    根據用戶輸入需求自動調整輸入法

    在應用程序中可以根據用戶的不同習慣自定義使用的輸入法這樣使程序更加靈活更加便捷本例是實現在不同的文本框切換不同的輸入法的功能如圖所示

http://developcsaicn/delphi/images/jpg>
圖  根據用戶輸入需求自動調整輸入法

right>[]  [http://developcsaicn/delphi/htm>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24805.html