演示程序中主要是用了 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 字符串 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;
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 字符串 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;