本文整理自网络,侵删。
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运行时的问题,cannot focus a disabled or invisible window!
Delphi 如何让 tgpimage 直接从流中加载图片?
Delphi - 利用dll编程控制摄像头实现拍照、录制视频
更多相关阅读请进入《Delphi》频道 >>