delphi５中如何使用包涵中文字符的字符串截取

Question

比如我有一字符串
str := '中国    china';
我要取得前8个字符，即'中国    ',但delphi 5中好像没有leftbstr函数，我该如何解决？？大虾们帮我

Answer 1

function WLeftStr(AStr: WideString; ALen: Integer): WideString;
begin
  Result := Copy(AStr, 1, ALen);
end;str := '中国    china';
newStr := WLeftStr(str, 4);

Answer 2

copy对中文只支持一个字符的呀．．．

Answer 3

“中国”是两个字符吧?s: WideString;begin
s := '中国 china';
ShowMessage(Copy(s, 1, 2));
end;