各位大大: 我寫了一支程式,是用來幫客戶自動編碼他們的客戶代號 比方說, key 入 聯強就會代出 HM 因為我有一個對照表 ㄅ=A,ㄆ=B,ㄇ=C.... 他會自動判斷每一中文字的第一個注音符號,現在客戶想以一聲,二聲來編碼 但我無法讓ㄌㄧㄢˊ 的 ˊ及ㄑㄧㄤˊ的 ˊ 在 DELPHI 裡找到這二個符號 要以什麼方式在 DELPHI 的程式裡 KEY 這些符號呢? 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou

------
Thomas Chiou

不知您所謂在 Delphi 的程式裡 Key 這兩個符號的意思為何？ 小弟的想法是: 1.設常數

const
  const1 = 'ˊ';

2.是用輸入法輸入嗎？是的話, 不知其它輸入法為何, 在內碼輸入法為 A3BD 在 Delphi 裡就是 Char($A3) Char($BD) 3.還是其它？ -- 向 KTop 的弟兄們致敬!

我的意思是     當我判斷

     if pos(trim(Result),Trim('ˊ'))>0 then
         begin
           Result:='B';
           exit;
     end
     else if pos(trim(Result),Trim('ˇ'))>0  then
        begin
          Result:='C';
          exit;
        end
        else if pos(trim(Result),Trim('ˋ'))>0  then
        begin
          Result:='D';
          exit;
        end;
    

但讀出來的資料好像不符 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou

------
Thomas Chiou

您好, 您 Pos 代入的值的順序似乎相反了, 改成如下:

     if Pos(Trim('ˊ'), Trim(Result)) > 0 then
     begin
       Result := 'B';
       exit;
     end
     else if Pos(Trim('ˇ'), trim(Result)) > 0  then
     begin
        Result := 'C';
        exit;
     end
     else if Pos(Trim('ˋ'), Trim(Result)) > 0  then
     begin
       Result := 'D';
       exit;
     end;

-- 向 KTop 的弟兄們致敬!

< >我還真糊塗,用反了還沒察覺,真是不好意< > 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou

------
Thomas Chiou