delphi按字节长度分割字符串函数（转）

此字符串分割函数用delphi编写，可以适应字符串中存在双字节字符和单字节字符。

function TricheditEfm.SplitString(source:string;Sleng:Integer):TStringlist;stdcall;  

                                                       //字符串分割函数 ,按字符串长度分割
var copycount,i:Integer;                               //每个汉字占用两个字节长度
    copystr:string;
    stringlist:Tstringlist;
begin
  Stringlist:=Tstringlist.Create;
  while length(source)>Sleng do
  begin
    copystr:=copy(source,,Sleng);                    //以Sleng为长度截取字符串
    if (ord(bytetype(copystr[Sleng],))=) then       //如果最后一个字节是汉字
    begin
      copycount:=;
      for i:= to Sleng- do
        if not (ord(bytetype(copystr[i],))=) then INC(copycount);
      if copycount mod  <> then             //有奇数个单字节字符，则说明是汉字的前半串
      begin
        stringlist.Add(Copy(Source,,Sleng+));
        source:=copy(source,Sleng+,length(source)-Sleng-);
      end
      else                                         //有偶数个单字节字符，则说明是汉字的后半串
      begin
        stringlist.Add(Copy(Source,,Sleng));
        source:=copy(source,Sleng+,length(source)-Sleng);
      end;
    end
    else                                          //如果最后一个字节是单字节字符
    begin
      stringlist.Add(Copy(Source,,Sleng));
      source:=copy(source,Sleng+,length(source)-Sleng);
    end;
  end;
  result:=Stringlist;
  Stringlist.Add(source);
end;