一个比较简单的关于INI显示的问题！

Question

var
s:Tinifile;
begin
s:=Tinifile.Create('c:\boot.ini');
s.ReadSections(Memo1.Lines);
end;

Answer 1

你好，我试了试。但显示内容不完整啊！只显示了boot loader
operating systems！有什么办法把全部内容显示出来！谢谢！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
   memo1.Lines.LoadFromFile('c:\test\test.ini');
   listbox1.Items.LoadFromFile('c:\test\test.ini');
end;

Answer 3

var
  s:Tinifile;
  i:integer;
  strs,tempstrs:TStrings;
begin
  s:=Tinifile.Create('c:\boot.ini');
  strs:=TStringList.Create;
  tempstrs:=TstringList.Create;
  s.ReadSections(strs);
  Memo1.Clear;
  for i:=0 to strs.Count-1 do
  begin
    Memo1.Lines.Add('['+strs[i]+']');
    tempstrs.Clear;
    s.ReadSectionValues(strs[i],tempstrs);
    Memo1.Lines.AddStrings(tempstrs);
  end;
  strs.Free;
  tempstrs.Free;
end;