Delphi Memo 内容每N行分批处理

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong

Delphi函数assignfile使用

Delphi fdmemtable1建立缓存表 模糊查询

firemonkey下使用stylebook的一些经验

Delphi listview排序

Delphi中读取指定内存地址的值

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi 获取系统串口列表

Delphi 中文大写日期转换函数

Delphi写的服务程序在服务管理器中显示“描述”

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Memo 内容每N行分批处理