請問各位前輩該如何正確計算一個中英文混合的字串長度，例如： 我愛K.Top 用Length算出來是9個字，但實際應該是7個字，請問有其他函數可以使用嗎？或是有其它方法呢？

有找到Delphi3+中文應用組件的解決方法：    uses CSPUtils . . . ShowMessage(IntToStr(AnsiLength(Edit1.Text)));    但是Delphi 6.0該如何寫呢？ 如果能找到CSPUtils.pas可以直接單獨拿來用嗎？ 如果可以是否有前輩可以提供一下呢？(抱歉！希望我沒有違反版規)

wwwbbs你好、轉換為WideString、    

var
  S: string;
  WS: WideString;
  I: Integer;
begin
  S := '我愛K.Top';
  WS := WideString(S);
  I := Length(WS);
  ShowMessage(IntToStr(I));
end;

感謝Rain前輩