VPF::Как получить все разделы в ini файле?

RinOSpro

Дата 8.8.2008, 14:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


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

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

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

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

Frees

Дата 8.8.2008, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

TIniFile.ReadSections();

--------------------

Кольцов Виктор Владимирович

RinOSpro

Дата 8.8.2008, 16:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Rrader

Дата 8.8.2008, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


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

--------------------

Let's do this quickly!
Rest in peace, Vit!

RinOSpro

Дата 8.8.2008, 18:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »