遇到难题了！高手请进！

Question

var
  INIFile:TINIFile;
  i:integer;
begin
  INIFile := TINIFile.Create('File.ini');
  try 
    for i:= 1 to max(i) do 
       INIFile.WriteString('ABC',a+IntToStr(i),'XXXX');
  finally
    INIFile.Destory;
end;
    

Answer 1

设要保存的数据放在values中，共有count个
这样写
for i:=1 to count do
    inif.Writeinteger('ABC','a'+inttostr(i),Values[i-1]);
这样读
for i:=1 to count do
    Values[i-1]:=inif.Readinteger('ABC','a'+inttostr(i),0);

Answer 2

在
[ABC]
下放一个计数Count就可以了

Answer 3

先读出所有行的Count然后，再在每个上面加一就可以了！