var
IniInfoList: tstringlist;
i: Integer;
SecTionName: string;
Titem: TListItem;
begin
TeListView1.Clear;
IniInfoList := tstringlist.Create;
myinifile.ReadSections(IniInfoList);
for i := 0 to IniInfoList.Count - 1 do
begin
Titem := TeListView1.Items.Add;
end;
end;
Item: TListItem): Integer;
var
IniInfoList: tstringlist;
i: Integer;
SecTionName: string;
Nameinfo: string;
begin
//得到小节名后
IniInfoList := tstringlist.Create;
myinifile.ReadSection(SectionInfo, IniInfoList);
for i := 0 to IniInfoList.Count - 1 do
begin
SecTionName := IniInfoList[i];
Nameinfo := myinifile.Readstring(SectionInfo, SecTionName, '');
if i = 0 then
begin
Item.Caption := Nameinfo;
Item.ImageIndex := 5;
end
else
Item.SubItems.Add(Nameinfo);
end;