1   
2   //---------------------------------------------------------------------------
3   
4   #include <vcl.h>
5   #pragma hdrstop
6   #include <IniFiles.hpp>
7   
8   #include "Unit1.h"
9   //---------------------------------------------------------------------------
10  #pragma package(smart_init)
11  #pragma resource "*.dfm"
12  TForm1 *Form1;
13  //---------------------------------------------------------------------------
14  __fastcall TForm1::TForm1(TComponent* Owner)
15          : TForm(Owner)
16  {
17  }
18  //---------------------------------------------------------------------------
19  
20  
21  void __fastcall TForm1::Button1Click(TObject *Sender)
22  {
23  
24  TIniFile *ini = new TIniFile("c:\\Test.ini");
25  
26  for(int i =0; i<ComboBox1->Items->Count;i++){
27    ini->WriteString("Section","Items"+ IntToStr(i),ComboBox1->Items[i].Text);
28  }
29  
30  ini->Free();
31  
32  
33  }
34  //---------------------------------------------------------------------------
35