delphi读写文件

以下是Delphi中读写文件的示例代码：

1. 读文件：

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); // 将读取的内容添加到RichEdit控件中
  end;
  closefile(rText); // 关闭文件
end;

2. 写文件：

procedure TForm1.Button1Click(Sender: TObject);
var
  wText: TextFile;
begin
  AssignFile(wText, 'output.txt'); // 打开文件
  rewrite(wText); // 以写入方式打开文件（如果文件存在，则清空文件内容）
  writeln(wText, 'Hello, World!'); // 写入内容到文件
  writeln(wText, 'This is a test.'); // 写入内容到文件
  closefile(wText); // 关闭文件
end;