[asm_viator]

Загрузка из ini

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j, ColCount, ICount: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create('C:/delme.ini');
  ListView1.Clear;
  ListView1.Columns.Clear;
  ColCount := ini.ReadInteger('Header','ColumnsCount',0);
  if ColCount <> 0 then
  begin
    for i := 0 to ColCount - 1 do
    begin
      ListView1.Columns.Add;
      ListView1.Columns[i].Caption := ini.ReadString('Header','Column ' + IntToStr(i),'');
    end;
    ICount := ini.ReadInteger('Header','ItemsCount',0);
    if ICount <> 0 then
    begin
      for i := 0 to ICount - 1 do
      begin
        ListView1.Items.Add;
        listView1.Items[i].Caption := ini.ReadString('Column ' + IntToStr(0),'Item ' + IntToStr(i),'');
        if ColCount > 0 then
          for j := 1 to ColCount do
          begin
            ListView1.Items[i].SubItems.Add(ini.ReadString('Column ' + IntToStr(j),'Item ' + IntToStr(i),''))
          end;
      end;
    end;
  end;
  ini.Free;
end;

Вроде работает, писал быстро