[poli-smen]

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

А можно поподробнее по поводу цикла и считывания через ReadString? Я не особо хорошо в этом разбираюсь Нужно ведь сделать считывание по порядку из списка значений... но как это сделать и избавиться от бесконечного цикла?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TMemIniFile;
  sl: TStringList;
  i: Integer;
  Ident, Value: String;
begin
  ini := TMemIniFile.Create('ИмяФайла.ini');
  try
    sl := TStringList.Create;
    try
      ini.ReadSection('soft', sl);
      for i := 0 to sl.Count - 1 do
      begin
        Ident := sl[i];
        Value := ini.ReadString('soft', Ident, '???');
        ShowMessageFmt('Для установки "%s" запускаем "%s"', [Ident, Value]);
      end;
    finally
      sl.Free;
    end;
  finally
    ini.Free;
  end;
end;