Проверить наличие секции в INI-файле

[BLACK_RAIN]

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

Я в курсе... Просто читаем все настройки как обычно - если их нет, загрузятся значения по умолчанию. По-моему, так даже легче...

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

Сообщение от Smitt&Wesson

Тогда вот так:
GetPrivateProfileSectionNames: читаем наименование секций файла.

Это типа так?

function IniIsSectionExists(const section, ini: string): Boolean;
const
  buflen = 1000;
var
  p : array [0..buflen] of Char;
  p2 : PChar;
  n,i : integer;
begin
  Result := False;
  if (section<>'') and (ini<>'') then
  begin
    n := GetPrivateProfileSectionNames(p,buflen,PChar(ini));
    if n>0 then
    begin
      p2 := p;
      while p2^ <> #0 do
        begin
          if p2=section then
          begin
            Result := True;
            Exit;
          end;  
          inc(p2,StrLen(p2)+1);
        end;
    end;
  end;
end;