iniファイル内のセクション数を取得するには？

解決

こんにちは 2009-03-14 01:10:22 No: 33635

iniファイルのセクション数でループさせたいのですが、
TIniFileには直接そういった機能がありません。
どうにかこれを得る方法はあるでしょうか？

そうねぇ 2009-03-14 02:01:29 No: 33636

直接はないけど、ReadSectionsで全セクションをTStingsに列挙すれば、
そのCountプロパティが使えるよ。

こんにちは 2009-03-14 02:34:07 No: 33637

レスありがとうです。
直接できるものがあるか悩んでいた事と、なかなかその発想ができずに困っていました。
とりあえずこんな感じにしてみました。
-----------------------------------------
var
  ini: TIniFile;
  list: TStringList;
begin
  ini := TIniFile.Create( 'test.ini' );
  list := TStringList.Create;
  try
    ini.ReadSections(list);
    shomessage( IntToStr(list.count) );
  finally
    ini.Free;
    list.Free;
  end;
end;
----------------------------------------
これで解決とさせて頂きます。ありがとうございました。