loading...
function getpyindexchar( hzchar:string):char;
begin //的到乙個漢字的拼音頭個字母
case word(hzchar[1]) shl 8 + word(hzchar[2]) of
$b0a1..$b0c4 : result := 'a';
$b0c5..$b2c0 : result := 'b';
$b2c1..$b4ed : result := 'c';
$b4ee..$b6e9 : result := 'd';
$b6ea..$b7a1 : result := 'e';
$b7a2..$b8c0 : result := 'f';
$b8c1..$b9fd : result := 'g';
$b9fe..$bbf6 : result := 'h';
$bbf7..$bfa5 : result := 'j';
$bfa6..$c0ab : result := 'k';
$c0ac..$c2e7 : result := 'l';
$c2e8..$c4c2 : result := 'm';
$c4c3..$c5b5 : result := 'n';
$c5b6..$c5bd : result := 'o';
$c5be..$c6d9 : result := 'p';
$c6da..$c8ba : result := 'q';
$c8bb..$c8f5 : result := 'r';
$c8f6..$cbf9 : result := 's';
$cbfa..$cdd9 : result := 't';
$cdda..$cef3 : result := 'w';
$cef4..$d188 : result := 'x';
$d1b9..$d4d0 : result := 'y';
$d4d1..$d7f9 : result := 'z';
else
result := char(0);
end;
end;
最後修改:2010 年 05 月 30 日 02 : 06 am
讚賞如果覺得我的文章對你有用,請隨意讚賞
×close
讚賞作者
掃一掃支付
支付寶支付
Delphi 02 Delphi程式的結構
一 工程檔案 program multiunit uses sysutils,unit1 in unit1.pas begin 引用unit1中的變數,因為是在介面部分定義所以可以引用 strgreet hello world 呼叫unit1中的過程 因為是在介面部分定義所以可以引用 greetin...
Delphi專案開發和Delphi學習筆記索引
最近準備做乙個用delphi客戶端呼叫.net的webservice的專案。所以把專案開發計畫和學習計畫寫在部落格上。希望對自己的技術有個促進。因為網上用delphi客戶端呼叫.net的webservice的專案和資料並不多,再加上我也沒做過客戶端程式,所以一些東東還要靠自己去鑽研。大致的計畫如下。...
delphi初級教程之delphi斷點除錯一
所謂斷點,就是在程式 的某一行上設定乙個標記,程式執行到這裡將暫停,由調 試器接管對程式的控制。使用斷點與使用 runto cursor 命令有些相似,都是執行到某 一行後暫停。不同的是,程式中可以設定多個斷點並且能夠給斷點設定條件。斷點通常設定在有疑點的區域。在遇到斷點之前,程式以全速執行。遇到斷...