Delphi開發技巧：字符串的其他操作[1]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    返回指定字符串的起始位置

    本實例是通過Delphi自帶的函數pos()來獲取字符串中指定字符的起始位置運行結果如圖圖所示

   

    程序代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
     sp : String;
    begin
     s := Private declarations;
     p := tion;
     ShowMessage(明日的起始位置為+IntToStr(Pos(明日你好明日科技)));
     ShowMessage(tion的起始位置為+IntToStr(Pos(ps)));
    end;

    獲得漢字的拼音簡碼

    本實例是通過漢字的前個字節向左移動位後再加上漢字的後個字節所獲得的值在定義的漢字拼音表中進行查找以獲得漢字的拼音簡碼運行結果如圖所示

圖  獲得漢字的拼音簡碼

    主要代碼如下
    function TFormpy(x: string): char;
    begin
     case word(x[]) shl +word(x[]) of
      $BA$BC:result:=A;
      $BC$BC:result:=B;
      $BC$BED:result:=C;

[]  []  

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