在线等

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  Aini:Tinifile;
  i:integer;
  s,f:string;
  Alist:TStringlist;
begin
//  Aini:=Tinifile.Create(ChangeFileExt(paramstr(0),'.ini'));
  F:=ExtractFilePath(Paramstr(0))+'temp.ini';
  Aini:=Tinifile.Create(f);  Alist:=TStringList.Create;
  try
    AIni.ReadSectionValues('S',Alist);
    s:='';
    for i:=0 to Alist.Count-1 do
    begin
     s:=s+''+Alist[i];
    end;
    Edit1.Text :=s;
  finally
    Alist.Free;
    Aini.Free;
  end;
end;
为什么只能读出最后一行的数据来

Answer 1

试了你的代码没有问题, 看看你的ini