关于文件的操作问题

Question

我想再Delphi里做一些文件的操作，不知道该怎么写这些代码，各位大下虾帮帮忙
我的代码是这样写的（有错）
var
  f:file of integer;
  i:integer;
然后有一个Button, click事件代码如下：
  assign(f,'f.dat');
  rewrite(f);
  for i:=1 to 10 do
  begin
    write(f,i);
  end;
  close(f);
这样写的代码是有错误的，哪位大虾可以给出正确的代码

Answer 1

var
  f:file of integer;
  i:integer;
然后有一个Button, click事件代码如下：
  assignfile(f,'f.dat');
  rewrite(f);
  for i:=1 to 10 do
  begin
    write(f,i);
  end;
  close(f);

Answer 2

procedure TForm1.saveClick(Sender: TObject);
var
    ff: textfile;
    str: string;
    i: integer;
begin
    savedialog1.Execute;
    if savedialog1.FileName <> '' then
    begin
        filename := savedialog1.FileName;
        assignfile(ff, filename);
        rewrite(ff);
        for i := 0 to richedit1.Lines.Count do
        begin
            writeln(ff, richedit1.Lines[i]);
        end;
        closefile(ff);
    end;

Answer 3

错了这样才对
var
  f:file of integer;
  i:integer;
然后有一个Button, click事件代码如下：
  assignfile(f,'f.dat');
  rewrite(f);
  for i:=1 to 10 do
  begin
    write(f,i);
  end;
  closefile(f);

Answer 4

var
  f:file of integer;
  i:integer;
然后有一个Button, click事件代码如下：
  assignfile(f,'f.dat');
  rewrite(f);
  for i:=1 to 10 do
  begin
    write(f,i);
  end;
  closefile(f);