需要两个按钮和两个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: TextFile;
tmp:String;
begin
richedit2.Clear;//清除原来的内容
AssignFile(rText, 'ip.txt');
reset(rText);
while not EOF(rText) do
begin
readln(rText,tmp);
richedit2.Lines.Add(tmp);
end;
closefile(rText);
end;
相关知识内容:
在对文本文件进行任何处理之前,首先要打开此文本文件。声明变量:通过此变量可以来引用一个文本文件。
打开一个文件需要两步:首先是 AssignFile()