謝謝﹗

判斷是否為漢字: 1.IsDBCSLeadByte 2.CharNext 3.ByteType 至於標點符號, 可能得列出所有的標點符號來判斷了    --- 歡迎光臨 KTop 研究院

可以使用判斷字符內碼範圍的辦法﹖嗎具體什麼範圍﹖ 只要區別漢字與特殊符號就可以了。 謝謝斑竹﹗

當然可以查內碼範圍，只是你可能要查GB碼，我只知道Big5  另一笨方法，不用查，列舉吧 < class="code"> procedure TForm1.Button1Click(Sender: TObject); var ts:WideString; flag:boolean; i:integer; begin ts:='，。：；”？！「」『』…'; for i :=1 to length(ts) do begin if ts[i]=edit1.Text then begin ShowMessage('標點符號') ; flag:=True; break; end; end; if not flag then ShowMessage('一般漢字'); end; 上列是全型的部份，半型的可自行加入，練習看看 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

ddy:我就是想知道Big5的內碼﹐使用內碼漢字如何與特殊符號區別﹐您能告訴我嗎﹖ 謝謝您﹗

lkr9 參考這二篇吧 【Delphi】【發表】中文字 <-----> Big5 互換範例 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26815 【Delphi】【分享】將字碼轉換至文字http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26356    利用 function txt2code(itxt: string): string; //由中文字取得big5 碼(hex) 取得Big5碼    

function code2txt(icode: string): string;
//由big5 碼取得中文字
var
    wordHi, wordLo,i: integer;
begin
    for i:=0 to length(icode)-1 do
       if i mod 4=0 then
        begin
            //二種寫法皆可
//            wordLo := strtoint('$'+ icode[i+1]+icode[i+2]+icode[i+3]+icode[i+4]) and $FF;
            wordLo := strtoint('$'+ icode[i+3]+icode[i+4]);
            //取得低位元
//            wordHi := strtoint('$'+ icode[i+1]+icode[i+2]+icode[i+3]+icode[i+4]) shr 8;
            wordHi := strtoint('$'+ icode[i+1]+icode[i+2]);
            //取得高位元
            result := char(wordHi) + char(wordLo);
        end;
end;    procedure TForm1.Button1Click(Sender: TObject);
//產生Big5內碼檔
var
    ts:TStrings;
    sec, off: integer;
    ch: integer;
begin
    ts := TStringList.Create;
    try
        for sec := $A1 to $F9 do
        begin
            Application.ProcessMessages;
            for off := $40 to $7E do
            begin
                ch := sec * 256 + off;
                ts.Add(IntToHex(sec,2)+inttohex(off,2)+'='+code2txt(IntToHex(sec,2)+inttohex(off,2)));
            end;
            //0x7F - 0xA0 未定義
            for off := $A1 to $FE do
            begin
                ch := sec * 256 + off;
                ts.Add(IntToHex(sec,2)+inttohex(off,2)+'='+code2txt(IntToHex(sec,2)+inttohex(off,2)));
            end;
        end;
        ts.SaveToFile(IncludeTrailingBackslash(GetCurrentDir) + 'Big5Code.txt');
    finally
        ts.Free;
    end;
    ShowMessage('OK');
end;

這段會產生Big5Code.txt 文檔，內容如下： A140= A141=， A142=、 A143=。 A144=． A145=‧ A146=； A147=： A148=？ A149=！ A14A=︰ ............ 所有內碼的編號與符號的排列 從此得知，標點符號的區塊，介於 A141~A1AC 其中有部份是特殊符號，看你自己的判定是否屬標點符號囉 ps:上述程式碼只是節錄部份，請自行修改可執行