关于一个string里的字符换行问题 ( 积分: 50 )

  • 主题发起人 主题发起人 renaihaore
  • 开始时间 开始时间
R

renaihaore

Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎么实现 一个string里的字符 超过多少个字符就 加上#13呢?

也就是 检测string里面 如果超过 多少个字 就换行
 
var
S: string;
begin
S := 'abcdefg';
Insert(S,3,#13#10);
ShowMessage(S);
end;
 
to : zqw0117

如果遇到汉字怎么办? 而且 string 是未知的 字符
 
帮顶,接分
 
function IsMBCSChar(const ch: Char): Boolean;
begin
Result := (ByteType(ch, 1) <> mbSingleByte);
end;
 
用length(字符串)返回长度
1个汉字 算两个字符
 
用WideString,不用考虑汉字不汉字的问题

----------------------
www.waibaoinfo.com
 
后退
顶部