全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2251
推到 Plurk!
推到 Facebook!

如何判別字串中的單位元及雙位元

尚未結案
jl
一般會員


發表:17
回覆:34
積分:10
註冊:2004-02-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-03 06:42:51 IP:202.175.xxx.xxx 未訂閱
各位delphi好友 本人有以下問題,希望得到各方delphi好友解決 1.有一字串如'abcd你ee好kk嗎?',怎樣取出每個字元存入一維數組中呢? 2.每個字元如a/b/好..等等, 有何function找出其相應的序號呢如A=65,B=66,好=""呢? 3.找出後又有何function回復原來的字串呢? 如fucntion(65) = A, function("") = 好..等等 請各delphi好友伸出緩手,小弟為初學者,故有此問 平常心活著
------
平常心活著
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-03 09:20:25 IP:202.39.xxx.xxx 未訂閱
引言: 各位delphi好友 本人有以下問題,希望得到各方delphi好友解決 1.有一字串如'abcd你ee好kk嗎?',怎樣取出每個字元存入一維數組中呢?
var
  i: integer;
  sTmp: string;
begin
  s := 'abcd你ee好kk嗎?';
  i := 1;
  while i <= Length(s) do
    if IsDBCSLeadByte(Byte(s[i])) then
    begin
      Memo1.Lines.Add(s[i] + s[i+1]);
      Inc(i, 2);
    end
    else
    begin
      Memo1.Lines.Add(s[i]);
      Inc(i);
    end;
end;
引言: 2.每個字元如a/b/好..等等, 有何function找出其相應的序號呢如A=65,B=66,好=""呢? 3.找出後又有何function回復原來的字串呢? 如fucntion(65) = A, function("") = 好..等等 請各delphi好友伸出緩手,小弟為初學者,故有此問 平常心活著
用 Chr 與 Ord 兩個函式 例: Ord(A) => 65, Chr(65) => A; -- He just never quits.
jl
一般會員


發表:17
回覆:34
積分:10
註冊:2004-02-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-03 09:51:56 IP:202.175.xxx.xxx 未訂閱
To Hager: 非常感激您的解答 第1個問題已解決,而第2及3個問題尚有些不明白, 用 Chr 與 Ord 兩個函式 例: Ord(A) => 65, Chr(65) => A; 我也嘗試用過,英文是可行的;那中文字轉換該怎樣寫才對呢? 可否再給一點中文字的轉換例子呢?不勝感激 平常心活著
------
平常心活著
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-04-03 12:08:46 IP:202.39.xxx.xxx 未訂閱
假設 s := '中'; 有兩個 char s[1] 代表 s 這個中文字的第一個 char, s[2] 表第二個 char 用 byte(s[1]) 轉為 byte 型態    -- He just never quits.
jl
一般會員


發表:17
回覆:34
積分:10
註冊:2004-02-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-04-04 08:28:35 IP:202.175.xxx.xxx 未訂閱
To hagar: Thank you very much. 這問題已解了。 s : string; p,q : byte; begin s :='國'; p:= ord(s[1]); //或p:= byte(s[1]); q := ord(s[2]); //或q := byte(s[2]); u := chr(p) chr(q); showmessage(u); end; 再問多一個問題,是否其他雙位字元也同一樣解決呢? jl 平常心活著
------
平常心活著
系統時間:2024-03-29 16:04:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!