прочитать несколько путей из INI в Delphi

[JDFU]

Здравствуйте!

Просмотрел форум (тщательно). Почитал ФАК (тоже тщательно). Моей ситуации нету.

Ситуация следующая:

Есть ИНИ-файл в нем прописаны пути к определённым каталогам. НО. Каталоги разбиты на разные категории. Т.е. часть каталогов в одной секции, а другая часть в другой секции. В зависимости от выбранного действия на форме приложение должно использовать каталоги с той или иной секции в INI-файле. Вопрос как попорядку читать пути в секции? Делать счётчик? Или можно по другому? Объясните пожалуйста.

вот такой INI (это пример):

[Group1]
1=C:\DATA\DATA1
2=C:\DATA\DATA2
3=C:\DATA\DATA7
[Group2]
1=C:\DATA\DATA3
2=C:\DATA\DATA4
3=C:\DATA\DATA5
4=C:\DATA\DATA36
5=C:\DATA\DATA11

Спасибо

[asmodey1]

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

Почитал ФАК (тоже тщательно). Моей ситуации нету.

Ну зачем же обманывать ?

ReadSections
ReadSection
ReadSectionValues
ReadString

Как говорится - выбирай, не хочу !
И в чем затруднение - тайна великая есть...

[JDFU]

хмм... странно.... я не вижу в FAQ, который предлогается скачать и прочитать всем новичкам пример с моей ситуацией.

если можно покажите как реализовать это в коде программы

[JDFU]

а... нет... вижу.... извиняюсь. Но реализации кода, как в моём случае нету. Помогите пожалуйста.

[Человек_Борща]

Сабж:

procedure TForm1.sButton1Click(Sender: TObject);
var
  myDir:string;
  ini:TiniFile;
  i:Integer; //Счётчик
begin
  myDir:=ExtractFilePath(ParamStr(0));//домашняя папка exe
  try
  ini:=TIniFile.Create(myDir+'Changes.ini');// открываем файл
  i:=0; //начинаем с 0
  while True do //Бесконечный цикл
  begin
    if ini.ValueExists('Changes',IntToStr(i)) then //Если в секции параметр i существет то
    begin
    sRichEdit1.Lines.Add(ini.ReadString('Changes',IntToStr(i),'')); //Пишем то ч о в параметре в richedit
    end else //иначе
    Break; //Пропуск интерации цикла
    Inc(i); //Увелечение i на 1
  end;
  finally 
  Ini.Free; //!!!!
  end;
end;

это из моего рабочего кода.

Понимает такой ini файл:

[changes]
0=
1=
2=
n=

FAQ'и нужно читать внимательно. Там не описывается каждая ситуация в отдельном. Там описываются общие принципы работы с чем-либо. В нашем случает это класс TInFile.

А поскольку у вас в файле не одна секция то, пользуемся ReadSectionValues функцией, и по тому же принципу читаем секции и в томже цикле читаем значения текущей секции.

[OlegVE]

Пример кода с http://delphi.about.com/cs/adptips20...ltip1201_5.htm

Function IniGetStringValue(  // функция возвращает Вашу строку с путём
   TheIniFile : String;        // Название вашего файла             
   IniSection : String;       // В вашем случае Group1 или Group2
   StringName : String;     // Без счётчика;) просто указываете 1 или 2 или ...
   DefaultString : String): String; // Если вышеназванного номера не будет, будет возвращена эта строка
Var
   TheIni : TIniFile;
Begin
   TheIni := TIniFile.Create(Self) ;
   Try
     Result :=
       TheIni.ReadString(    // Для чтения строкового значения ReadString
         IniSection,
         StringName,
         DefaultString) ;
     If Result = '' Then
Result := DefaultString;
   Finally
     TheIni.Free;
   End;
End;

Function IniSetStringValue( // функция записывает новое значение
   TheIniFile : String;
   IniSection : String;
   StringName : String;
   StringValue : String): Boolean;
Var
   TheIni : TIniFile;
Begin
   TheIni := TIniFile.Create(Self) ;
   Try
     Try
       TheIni.WriteString(   // Для записи строкового значения WriteString
         IniSection,
         StringName,
         StringValue) ;
       Result := True;
     Except
       Result := False;
     End;
   Finally
     TheIni.Free;
   End;
End;

А Вы уже сами придумывайте в каком месте кода изменять значение IniSection с Group1 на Group2.
До свидания

P.S. Одновременно два ответа. Выбирайте то, что Вам нравиться , а лучше объдините.

[asmodey1]

Что-то друзья намудрили...
1. Читаем названия секций - ReadSections. Если нужно - сортируем.
2. Читаем список параметров в каждой секции - ReadSection.
3. Читаем нужный параметр из полученного списка - ReadString.

[OlegVE]

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

Что-то друзья намудрили...
1. Читаем названия секций - ReadSections. Если нужно - сортируем.
2. Читаем список параметров в каждой секции - ReadSection.
3. Читаем нужный параметр из полученного списка - ReadString.

1. Писал новичёк.
2. Код на delphi.about.com практически всё поясняет плюс - обрабатывает ошибки.
3. Вопрос:

Вопрос как попорядку читать пути в секции?

Звучит многозначно.

[JDFU]

Спасибо всем. Двух примеров вполне достаточно. Примеры простые и понятные для меня. Еще раз всем спасибо.