16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
k, n: integer;
ch: byte;
s, sData: string;
begin
sData := Edit1.Text;
k := 1;
s := '';
n := 0;
while k <= Length(sData) do
begin
ch := Byte(sData[k]);
if Windows.IsDBCSLeadByte(ch) then
begin
s := s + Copy(sData, k, 2);
Inc(k);
end
else
s := s + sData[k];
Inc(n);
Inc(k);
if n mod 5 = 0 then
begin
Memo1.Lines.Add(s);
n := 0;
s := '';
end;
end;
end;