delphi讀寫文本文件

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

>>阅读原文<<