var f:textfile; begin assignfile(f, 'c:\my_file.txt'); rewrite(f); writeln(f,edit1.text); closefile(f); edit1.clear; edit1.SetFocus; end;
5,388
社区成员
262,730
社区内容
加载中
试试用AI创作助手写篇文章吧