以下代码读取Ini文件的所有信息
function TFrm_Main.AddIniInfoList: Integer;
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;
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;
AddSubIniInfo(IniInfoList[i], Titem);
end;
end;
end;
end;
function TFrm_Main.AddSubIniInfo(SectionInfo: string;
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);
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;
end;
end;
转载于:https://blog.51cto.com/zsqztg/184793