频道分类

Delphi Memo 内容每N行分批处理

作者:admin 来源: 日期:2020/1/21 1:44:07 人气: 标签:

 
rocedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
begin
Memo2.Clear;

k:=0;
for I := 0 to Memo1.Lines.Count-1 do
begin

Memo2.Lines.Add(Memo1.Lines.Strings[I]);
Inc(k);

if k=5 then
begin
  Memo2.Lines.Add('----------');
  k:=0;
end;

end;

end;
end;

end;