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

解決

こんにちは  2009-03-13 16:10:22  No: 33635  IP: 192.*.*.*

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

編集 削除
そうねぇ  2009-03-13 17:01:29  No: 33636  IP: 192.*.*.*

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

編集 削除
こんにちは  2009-03-13 17:34:07  No: 33637  IP: 192.*.*.*

レスありがとうです。
直接できるものがあるか悩んでいた事と、なかなかその発想ができずに困っていました。
とりあえずこんな感じにしてみました。
-----------------------------------------
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;
----------------------------------------
これで解決とさせて頂きます。ありがとうございました。

編集 削除