文件操作

Question

需要讲计算的数据存入到文件中 c:\result.txt但是 c:\result.txt 文件不一定存在如果不存在，则就产生，然后讲数据写到这个文件中 var f:textfile;
x,y:real;
i:integer;i:=createfile('c:\test.txt');
assignfile(f,'c:\test.txt');
rewrite(f);
writeln(f,'hello');
closefile(f);可是提示错误，请问怎么解决谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  FileName, S: string;
begin
  FileName := 'c:\result.txt';
  S := 'hello';
  AssignFile(F, FileName);
  ReWrite(F);
  WriteLn(F, S);
  CloseFile(F);
end;