解决Delphi截取字符串时遇到半个汉字
来源:互联网 发布:装潢艺术设计专业软件 编辑:程序博客网 时间:2024/06/05 18:39
演示程序中主要是用了 IsDBCSLeadByte 这个 API 来判断某字节是否在双字节字符集(例如汉字)的前导字节集中(GB 2312-80 汉字编码中的第一个字节范围 0xA1-0xFe)
procedure TForm1.Button1Click(Sender: TObject);
var
CutLengthOfLine{ 被处理字符串的总长度 }, i, j: integer;
sLine{ 被处理的源字符串 }: string;
sCuted{ 按固定长度分割出来的部分字符串 }: string;
iCutLength{ 按固定长度分割出来的部分字符串的长度 }: integer;
bIsDBCS{ 是否是汉字的前半字节 }: boolean;
begin
if edit1.text='' then begin
exit;
end;
CutLengthOfLine:=strtoint(edit1.text);
if CutLengthOfLine < 2 then begin
showmessage('CutLengthOfLine 必须大于等于 2 !');
Exit;
end;
Memo2.Lines.Clear;
for i := 0 to Memo1.Lines.Count - 1 do
begin
sLine := Memo1.Lines[i];
if Length(sLine) = 0 then
Memo2.Lines.Add(#13+#10)
else
repeat //开始处理字符串
iCutLength := CutLengthOfLine;
sCuted := Copy(sLine, 1, iCutLength);//从头取出 iCutLength 长的字符串
bIsDBCS := False;//先假设没有半个字符串
for j := 1 to iCutLength do //从头到尾逐个检查,至于为什么?
//原作者是这样解释的
//1. 为什麽不直接抓最後一个字元判断? 因为中文字的 Trail-byte, 其内码也可能落在 Lead-byte
// 的内码区间内.
//2. 为什麽不直接抓最後两个字元来判断? 因为前一个字的 Trail-byte 加上後一个字的 Lead-byte,
// 可能又是一个中文字.
begin
if bIsDBCS then //如果上一个字节是汉字的前半部分
bIsDBCS := False //则此时本字节是汉字的后半部分,
//所以将是否前半个汉字检测标志设为假
else
if Windows.IsDBCSLeadByte(byte(sCuted[j])) then
bIsDBCS := True;//否则检查本字节,并根据结果设置标志
end; //end of for
//如果最后一个字节的上一个字节是汉字的前半部分,则结束时
//检测标志为假,
if bIsDBCS then Dec(iCutLength);
//如果最后一个字节是汉字的前半部分, 则少截取一个字符,避免乱码
Memo2.Lines.Add(Copy(sLine, 1, iCutLength));
sLine := Copy(sLine, iCutLength + 1, Length(sLine) - iCutLength);
//拷贝出下一部分固定长度的字符串,循环处理
until Length(sLine) <= 0;
end;
memo2.setfocus;
memo2.selstart:=0;
memo2.SelLength:=0;
end;
- 解决Delphi截取字符串时遇到半个汉字
- JAVA 中字符串的截取,要求不能截取半个汉字
- 截取字符串,含有汉字和字母,不能截半个汉字
- 有汉字字符串的截取,汉字不能截半个
- 截取指定长度的字符串(汉字不出现半个)
- Java中文字符串截取,不能返回半个汉字
- 截取一个中英文混合的字符串,不能出现截取半个汉字的问题
- 20、JAVA 中字符串的截取,要求不能截取半个汉字
- 字符串截取(按指定的字节数)汉字不可以截取半个
- java根据字节 截取字符串,保证汉字不被截取半个
- JAVA面试题_根据字节数截取字符串,但是汉字不能截取半个。
- 对指定的含中文的字符串按指定的字节数截取,碰到半个汉字的时候,不截取此半个汉字。
- 截取固定长度汉字差半个字符
- Java按照字节来截取字符串的工具,不会出现半个汉字
- 截取字符串,中文不能截取半个
- 编写一个截取字符串的函数,输入为一个字符串和字节数,输出为按字节截取的字符串。 但是要保证汉字不被截半个
- 编写一个截取字符串的函数,输入为一个字符串和字节数,输出为按字节截取的字符串。 但是要保证汉字不被截半个。
- 编写一个截取字符串的函数,输入为一个字符串和字节数, 输出为按字节截取的字符串。 但是要保证汉字不被截半个。
- SQL--表达式,条件语句,运算和WHERE子句 (2)
- Android手机上监听短信的两种方式
- 浅谈SpaceBuilder系统的缓存机制_缓存思想
- 2006年01月版企业库中缓存应用程序块
- 收集的一些SQL知识
- 解决Delphi截取字符串时遇到半个汉字
- JS 比较开始日期是否大于结束日期
- delphi 操作 EXcel
- VisualStudio 保护眼睛的配色方案
- Studying note of GCC-3.4.6 source (77)
- JSON 与JAVA对象之间的转换
- delphi 从数据库 读\写 图片
- android ListActivity
- as连接fms