本文整理自网络,侵删。
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;
相关阅读 >>
Delphi idftp 错误:socket error 10054 �c connection reset by peer -连接被重置
Delphi ioutils 获取当前目录下所有的文件/文件夹
Delphi getmodulefilename函数的用法(可以获取项目的路径,桌面的路径,我的文档的路径)
更多相关阅读请进入《Delphi》频道 >>