請教各位 有一個欄位資料長度是25碼,裡面可以輸入數字和中英文,如果太長會被 截掉一部份,但若是中文的話被截一半會形成亂碼,導致讀進的資料會 出問題..是否有辦法來分辦最後一字是數字或中英文,以利截取? 煩請各位指教,謝謝 sangya

Hi sangya,    關於中文字擷取，你可以參考以下討論    http://delphi.ktop.com.tw/topic.php?topic_id=40745 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40612 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

如果你只是為了要解決在截掉過長的字串,會發生拆到一個中文字的情況的話,可以運用wideString的型態來處理.在wideString裡,一個字就是一個字,不管是中文字或英文.範例如下,您試試:

var
  ws:WideString;
  s:String;
begin
  s:=Copy(Edit1.Text,1,25); //25表示你的欄位最長為25碼
  ws:=s; //轉成WideString
  Edit2.Text:=Copy(ws,1,Length(ws)); //再截一次即可
end;

用Windows API IsDBCSLeadByte可用來判定某Char是否為雙Byte字元(即中文字) 的前導Byte

function TruncateChinese(str:string):string;
begin
  result := str;
  if (length(str) >= 25) and(IsDBCSLeadByte(Byte(str[25]))) then 
   result  := Coyp(str,1,24)
  else result  := Coyp(str,1,25);
end;
 

混心雜欲 棄修身~唉 發表人 - speedup 於 2004/07/21 09:37:18

------
唉~

我常需处理这个问题,因此我做了一个函数fStrCopy代替DELPHI的Copy,具体做法是:判断每个字符,并统计英文,数字的字符个数及中文字符的个数,如果在截取范围内中文字符个数为单数就多取一个字符.代码如下: 其中viBeg返回下一次截取的位置,如要求截取10个字符,但实际截取了11个,这viBeg返回12. 虽然是笨方法,但很有效 function fStrCopy(vsStr: string; var viBeg: integer; viLen: integer): string; var i, j: integer; dsTmp: string; daTmp: array[0..1023] of char; begin ZeroMemory(@daTmp, 1023); dsTmp := Copy(vsStr, viBeg, viLen); if Length(dsTmp) = viLen then begin Move(PChar(dsTmp)^, daTmp, viLen); j := 0; for i := 0 to viLen - 1 do begin if (daTmp[i] < #32) or (daTmp[i] > #126) then begin j := j 1; end; end; if (j mod 2) = 1 then begin //因发票打印空间较小,为防止超出表格统一少取一个字符 dsTmp := Copy(vsStr, viBeg, viLen - 1); viBeg := viBeg viLen - 1; end else begin viBeg := viBeg viLen; end; end else begin viBeg := viBeg Length(dsTmp); end; fStrCopy := dsTmp; end;

感謝各位的大力幫助,謝謝!!!