unit1.pas

"我a你c窗体bbbbb你"如果要你在第四个byte那里把上面的句子分成两句

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure apartstrThrcharnum(pstr:string;pnum:integer;var plist:tstringlist);
    procedure apartstrThrsite(pstr:string;pnum:integer;var plist:tstringlist);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.apartstrThrcharnum(pstr: string; pnum: integer;
  var plist: tstringlist);
var
  llen,li:integer;
  lWCA,lwcaaux:array of widechar;
  laux:string;
begin
  llen:=length(pstr);
  setlength(lWCA,llen+1);
  setlength(lwcaaux,llen+1);
  for li:=0 to length(lwca)-1 do begin
    lwca[li]:=#0;
    lwcaaux[li]:=#0;
  end;
  StringToWideChar(pstr,pwidechar(lwca),length(lwca));
  if (pnum>=llen) or (pnum<1) then begin
    plist.Add(pstr);
  end else begin
    for li:=0 to pnum-1 do lwcaaux[li]:=lwca[li];
    laux:=WideCharToString(pwidechar(lwcaaux));
    plist.Add(laux);//widechartostring使得lwca中#0后面的东西消失
    laux:=copy(pstr,length(laux)+1,length(pstr)-length(laux));
    if length(laux)>0 then plist.Add(laux);
  end;
  lwca:=nil;
  lwcaaux:=nil;
end;

procedure TForm1.apartstrThrsite(pstr: string; pnum: integer;
  var plist: tstringlist);
var
  llen,li,lhigh,llow,lnum:integer;
  lWCA,lwcaaux:array of widechar;
  laux,lt:string;
  lflag:byte;
begin
  llen:=length(pstr);
  setlength(lWCA,llen+1);
  setlength(lwcaaux,llen+1);
  for li:=0 to length(lwca)-1 do begin
    lwca[li]:=#0;
    lwcaaux[li]:=#0;
  end;
  StringToWideChar(pstr,pwidechar(lwca),length(lwca));
  if (pnum>=llen) or (pnum<1) then begin
    plist.Add(pstr);
  end else begin
      lflag:=0;
      lhigh:=pnum;
      llow:=pnum div 2+pnum mod 2;
      while lflag=0 do begin
        lnum:=(lhigh+llow)div 2;
        for li:=0 to llen-1 do lwcaaux[li]:=#0;
        for li:=0 to lnum-1 do lwcaaux[li]:=lwca[li];
        laux:=WideCharToString(pwidechar(lwcaaux));
        lt:=inttostr(length(laux));
        if length(laux)-pnum>1 then begin
          lhigh:=lhigh-(lhigh-llow)div 2
        end else if length(laux)<pnum then begin
          llow:=(llow+(lhigh-llow)div 2)+(lhigh-llow)mod 2;
        end else lflag:=1;
      end;
    plist.Add(laux);//widechartostring使得lwca中#0后面的东西消失
    laux:=copy(pstr,length(laux)+1,length(pstr)-length(laux));
    if length(laux)>0 then plist.Add(laux);
  end;
  lwca:=nil;
  lwcaaux:=nil;
{str='abc'#0#0#0'123456',
for li:=0 to 6 do lwcaaux[li]:=lwca[li];得到的结果为lwcaaux＝'abc'#0#0#0'1，
laux:=WideCharToString(pwidechar(lwcaaux));laux＝'abc'
所以如果句中有#0，用WideCharToString后，在#0后的将不存在，
这就意味上面靠length(laux)来判断长度的方法失效。}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  llist:tstringlist;
  lstr:string;
begin
  llist:=tstringlist.Create;
  lstr:='a我bc你def他ghij它klmn她opqklj;kj;lj;;kjk 万事大吉发'#1#0#2#0#3#0#4#0'；qkwef竞技场';
//  lstr:='我你他都为宿舍罐头盒';
//  lstr:='abcdefghijklmnopqrstuvwxyz';
  apartstrThrsite(lstr,strtoint(trim(edit1.Text)),llist);
//  lstr:=llist.Strings[1];
  memo1.Lines.AddStrings(llist);
  llist.Free;
end;

end.