摘要:
需要两个按钮和两个Richedit控件,采用默认名称即可.procedure TForm1.Button1Click(Sender: TObject); //写文件var wText: TextFile;begin AssignFile(wText, 'ip.txt'); Rewrite(wText);//创建文件,或者使用ReSet打开文件 Writeln(wText, richedit1.text); CloseFile(wText);end;procedure TForm1.Button2Click(Sender: TObject); //读文件var rText: Te
阅读全文