delphi读写文本文件

procedureTForm1.Button1Click(Sender: TObject); //写文件编程 var wText:TextFile; begin   AssignFile(wText, 'ip.txt');   Rewrite(wText);//建立文件，或者使用ReSet打开文件   Writeln(wText, richedit1.text);   CloseFile(wTex

>>阅读原文<<