本文整理自网络,侵删。
rocedure TForm1.Button1Click(Sender: TObject);vari,k:integer;beginMemo2.Clear;
k:=0;for I := 0 to Memo1.Lines.Count-1 dobegin
Memo2.Lines.Add(Memo1.Lines.Strings[I]);Inc(k);
if k=5 thenbegin Memo2.Lines.Add('----------'); k:=0;end;
end;
end;end;
end;
相关阅读 >>
delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies
Delphi xe android platform uses-permission[1] 权限列表
Delphi xe8 numberbox使用方法及存在的问题
更多相关阅读请进入《Delphi》频道 >>