Загрузка в ListView

[nefakt]

Всем привет)
У меня такой вопрос.

Как Из Ini считать параметр и значение и загрузить их в 1 и 2 столбик ListView

Заранее спасибо

[min@y™]

Выкинь из вопроса всё лишнее, оставь только это:

Всем привет)
У меня такой вопрос:
как сделать на Delphi

далее - описание задачи.

[northener]

Сообщение от nefakt

Всем привет)
У меня такой вопрос.

Как Из Ini считать параметр и значение и загрузить их в 1 и 2 столбик ListView

Заранее спасибо

У ListView нет столбиков.
P.S. На всякий случай скажу что у ListView и строчек тоже нет.

[phomm]

procedure TForm1.FormActivate(Sender: TObject);
const
  SectionName = 'Options';
var
  Keys: TStringList;
  Inifile: TMemIniFile;
  I: Integer;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.Add.Caption := 'Key';
  ListView1.Columns.Add.Caption := 'Value';
  Inifile := TMemIniFile.Create('1.ini');
  Keys := TStringList.Create;
  Inifile.ReadSection(SectionName, Keys);
  for I := 0 to Keys.Count - 1 do
    with ListView1.Items.Add do
    begin
      Caption := Keys[I];
      SubItems.Add(Inifile.ReadString(SectionName, Keys[I], ''));
    end;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);
end;

На форме только листвью, и установлен обработчик OnActivate у формы, больше не надо ничего. Но Вы сами можете настроить колонки и т.п., тогда надо убрать из кода обращение к Columns
Ини-файл вида

[Options]
  MainFormOnTaskbar = True
  ApplicationForm = Form1

[min@y™]

Вообще, хотелось бы увидеть исходный Ini-файл, чтобы конкретно представлять, для чего это нужно.

[nefakt]

INI такого вида

[Game]
  тут название = тут путь
  тут название = тут путь

И нужно что бы название в первую колонку загружались а пути во вторую.

[indexx]

Загружаем секцию в stringlist, читаем циклом строки, заносим в listview. В каком именно месте затык?

[min@y™]

И нужно что бы название в первую колонку загружались а пути во вторую.

Ну, допустим. Только зачем всё это?

function LoadListItems(Items: TListItems; const FileName: string): Boolean;
var
  Ini: TMemIniFile;
  Temp: TStrings;
  Index: Integer;
begin
  Result:= True;
  try
    Ini:= TMemIniFile.Create(FileName);
    Temp:= TStringList.Create();
    Items.BeginUpdate();
    try
      Items.Clear(); // если нужно
      Ini.ReadSectionValues('Game', Temp);
    
      for Index:= 0 to Temp.Count - 1 do
        with Items.Add() do
          begin
            Caption:= Temp.Names[Index];
            SubItems.Add(Temp.Values[Caption]);
          end; // with
    finally
      Items.EndUpdate();
      Temp.Free();
      Ini.Free();
    end;
  except
    Result:= False;
  end;
end;