内容同上,请各位高手帮忙

解决方案 »

  1.   

    #include <Inifiles.hpp>
    void __fastcall TForm1::FormCreate(TObject *Sender){
      TIniFile* pif = new TIniFile("WIN.INI");
      pif->ReadSections(ListBox1->Items);
      pif->ReadSection("Ports",ListBox2->Items);
      pif->ReadSectionValues("Ports",ListBox3->Items);
      delete pif;  int count = ListBox1-Items->Count;
    }
      

  2.   

    var
      MyIni: TIniFile;
      StringList: TStringList;
    begin
      MyIni := TIniFile.Create('C:\WINNT\system.ini');
      StringList := TStringList.Create;
      MyIni.ReadSections(StringList);
      ShowMessage(IntToStr(StringList.Count)); // Section 总数
      StringList.Free;
      MyIni.Free;
    end;