超菜问题，如何用文件保存一个整数，给100 ，线上等

Question

超菜问题，如何用文件保存一个整数？我想用一个文件来保存我的一个整数，但
不知道文件操作的函数各位兄弟：帮帮忙

Answer 1

var
  i:integer;
  F:TextFile;
begin
  i:=10000;
  AssignFile(f,'test.txt');
  rewrite(f);
  writeln(f,inttostr(i));
  closefile(f);
end;

Answer 2

读：
var
  i:integer;
  s:string;
  F:TextFile;
begin
  i:=10000;
  AssignFile(f,'test.txt');
  reset(f);
  readlnln(f,s);
  closefile(f);
  i:=strtoint(s);
end;
以上是利用文本文件保存
你可以看TextFile的帮助

Answer 3

var
  i:integer;
  F:TextFile;
begin
  i:=10000;
  AssignFile(f,'c:\test\test.txt');
  Append(f);
  writeln(f,inttostr(i));
  closefile(f);
end;

Answer 4

CreateFile,ReadFile,WriteFile,
自定义格式保存，按你的格式读取

Answer 5

用stringlist做吧
var
 ARecord:TStringlist;
begin
  ARecord:=TStringList.creatr;
  try
    ARecord.Add(''); 添加到最后
    ARecord.insert(i,'')插入i行
    ARecord.Delete(i)删除地i行
  finally
    ARecord.savetofile('你要保存的文件名');
  end
end

Answer 6

打开就是Arecord.LoadFromFile('');
读取为ARecord.strings[i]即为读取第i行

Answer 7

呵呵，用shuyi(舒易) 的方法很好，很简单；