Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как получить все разделы в ini файле?

Автор: RinOSpro 8.8.2008, 14:07

Код


[Первый] ; раздел
1 = значение_1
2 = значение_2

[Второй] ; раздел
1 = значение_1
2 = значение_2

[N-ный] ; раздел
1 = значение_1
2 = значение_2

В общем разделов много, называются они по разному. Как можно получить их все?

Автор: Frees 8.8.2008, 14:18

TIniFile.ReadSections();

Автор: RinOSpro 8.8.2008, 16:50

Frees а на WinApi есть что либо подобное?

Автор: Rrader 8.8.2008, 17:35

Код


procedure GetSections(const FileName: String; List: TStrings);
const
  BufSize = 16384;
var
  Buffer, P: PChar;
begin
  GetMem(Buffer, BufSize);
  try
    List.BeginUpdate;
    try
      List.Clear;
      if GetPrivateProfileString(nil, nil, nil, Buffer, BufSize,
        PChar(FileName)) <> 0 then
      begin
        P := Buffer;
        while P^ <> #0 do
        begin
          List.Add(P);
          Inc(P, StrLen(P) + 1);
        end;
      end;
    finally
      List.EndUpdate;
    end;
  finally
    FreeMem(Buffer, BufSize);
  end;
end;

Всего одна API - GetPrivateProfileString

Автор: RinOSpro 8.8.2008, 18:15

Rrader спасибо) а я думал что она только по значениям возвращает)