本文整理自网络,侵删。
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的tservice 服务路径获取 dll中获取文件路径
Delphi xe andriod 文件后缀对应mime类型
更多相关阅读请进入《Delphi》频道 >>