如何将ini中的内容读入listbox?

Question

ini文件中内容如下
;参数区
[setup]
name1=xxxx
name2=dddd
name3=aaaa
name4=ssss
.
.
.
.
namex=asdf
;设置区
[control]
width=222
height=444============================
setup小节下，的name个数不定
control小节下的内容个数也不定
如何将name一行一行读到listbox?
如何将control下的数据一行一行读入listbox?请教了。

Answer 1

[setup]
name1=xxxx
name2=dddd
name3=aaaa
name4=ssssunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB,inifiles, StdCtrls;type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
inifle : TIniFile
begin
   inifle := TIniFile.Create('d:\abc.ini');
   with inifle do
   begin
     ListBox1.Items.Add(ReadString(setup,'name1',''));
     ListBox1.Items.Add(ReadString(setup,'name2',''));
     ListBox1.Items.Add(ReadString(setup,'name3',''));
     ListBox1.Items.Add(ReadString(setup,'name4',''));
   end;end;end.

Answer 2

你是要读取全部内容还是某些值？
要全部的话直接读就可以了
ListBox.Items.LoadFromFile('xxx.ini');

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var
inifle : TIniFile
i,count : integer;
begin
   inifle := TIniFile.Create('d:\abc.ini');
    //在你的ini文件中添加一个count项，记录下面子节点的个数
   //首先读取这个子节点
   count := inifle.readinteger('setup','count',1);
   with inifle do
   begin
     for i := 1 to count do
     ListBox1.Items.Add(ReadString('setup,'name'+inttostr(i),''));
   end;end;

Answer 4

var
  i: TINIFile;
begin
...
  i.ReadSections(...);
  i.ReadSectionValues(...);
...
end;

Answer 5

uses IniFiles;
procedure TForm1.FormActivate(Sender: TObject);var
  AppIni: TIniFile;
begin
  AppIni := TIniFile.Create('win.ini');
  AppIni.ReadSections(ListBox1.Items);
  AppIni.ReadSection('Ports',Listbox2.Items);
  AppIni.ReadSectionValues('Ports',ListBox3.Items);
  AppIni.Free;
end;