Delphi字符串拆分(字符数限制)

本文整理自网络，侵删。

 
Delphi字符串拆分(字符数限制)
字符串按一个数量拆分 ，我是应用在短信拆分。中英文均认为是2个字符，所以输入参数mText为WideString类型。
可以这么理解 string，widestring
============ 
string 单位：1char
widestring 单位：2char 
string '我们ss' 长度为6
widestring '我们ss' 长度为4
============ 
函数名 WrapWideString
输入：mText 短信内容 mLength 短信设定长度 
输出：整段内容以#13#10拆分 
============ 
function WrapWideString(mText:WideString; mLength : Integer): String;
var
J:Integer;
begin
Result:='';
while Length(mText) > mLength do
begin
J := Ord(ByteType(mText, mLength) = mbLeadByte);
Result := Result + #13#10 + Copy(mText, 1, mLength - J);
Delete(mText, 1, mLength - J);
end;
Result := Result + #13#10 + Copy(mText, 1, mLength);
Delete(Result, 1, 2);
end;
 

相关阅读 >>

Delphi ado 动态建立.mdb数据库，表

Delphi treeview添加背景图片

Delphi中ns和ms时间的获取方法

Delphi 执行控制台(console)程序获取返回结果

winapi 字符及字符串函数(6): ischaralphanumeric - 是否是个文字(字母或数字)

Delphi中exit,abort,break,continue,halt,runerro 的区别

Delphi(更改图标)

Delphi过程函数传递参数的八种方式

Delphi 将jpg图片上传到sqlserver数据库里

Delphi 命令行 打开读写txt文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi字符串拆分(字符数限制)