還是漢字換行的問題

Question

現有一段字符串Str,足夠長,里面有英文字,也有中文字,現在在我列印它,希望20個字節換行,但是不能將中文字拆開列印,請問,我該如何寫?

Answer 1

AAA,A1: widestring;
str1: String;
nLen: Integer;
AAA := str;
A1 := LeftStr(AAA,20);
nLen := 20;
str1 := a1;
while Length(str1)>20 do
begin
  Dec(nLen);
  a1 := LeftStr(A1,nLen);
  str1 := a1;
end;最后的str1就是结果。

Answer 2

我以前是用bytetype判斷的,
而且這些代碼我是用在控制報表上面的
也可以判斷是不是漢字,
但是用bytetype 在打印報表的時候,尤其是在多頁打印的時候
有時會出現地址錯,