感谢,最后按Memo1.Lines.SaveToFile('F:\' + IntToStr(i) + '.txt'); 实现了。折腾了一整天
var f: TextFile; s: string; begin DateTimeToString(s, 'yyyymmdd', now); AssignFile(f, s + '.txt'); Rewrite(f); CloseFile(f); end;
16,748
社区成员
33,247
社区内容
加载中
试试用AI创作助手写篇文章吧