怎么往一个文本文件里写入字符串？

Question

我的代码是这个样的，但是运行时提示CloseFile那里报IO 103错误。这个文本文件本身是有数据的。我只想在第一行加一个回车而已。var
 f1:textfile;
begin
      AssignFile(f1,'C:\620701.txt');
      writeln(f1,'zdq');
      closeFile(f1);
end;

Answer 1

AssignFile后，要执行Reset(f1)或者Rewrite(f1)，Reset表示打开文件，Rewrite表示创建新文件并打开。“想在第一行加一个回车而已”，这个操作对于线性表结构的文件来说，是比较复杂，需要读出原文件所有内容，然后写入另外一个新文件。

Answer 2

1. Reset : 为读打开文件并把文件指针移动到文件首；2. Rewrite : 为写创建一个新文件；3. Append : 为写打开存在的文件并把文件指针定位在文件尾。

Answer 3

rewrite(fl);
Reset(fl);
要告诉它是对文件操作

Answer 4

var
  f1:textfile;
begin
  AssignFile(f1,'C:\620701.txt');
  Rewrite(F1);
  writeln(f1,'zdq');
  closeFile(f1);
end;

Answer 5

第一行加一个回车，可以用TStringList
StringList1.LoadFromFile('...');
StringList1.Insert(0, #13);
StringList1.SaveToFile('...');

Answer 6

顶老于
但给个建议
一般操作文本文件最方便的方法是这样的
var
  strList : StringList;
begin
  strList  := TStringList.Create;
  strList.LoadFromFile('C:\620701.txt'); 
  strList.Add('zdq');
  strList.SaveToFile('C:\620701.txt');
  strList.Free;
end;

Answer 7

IO 103错误：表示文件没有打开,若文件未打开,由CloseFile,Read,Write,Seek,Eof,FilePos,FileSize,Flush,BlockRead或BlockWrite报告错误。