Noch eine INIFrage. Anzahl der Einträge in Sektion auslesen

[neus]

Hi,

also diesmal eine einfache Frage. Ich habe eine Ini und möchte quasi wissen wieviele Passwörter hinterlegt sind.

test.ini
[passwords]
passwort1=werwer
passwort2=erefgsxdfs
passwort3=fdgfbvxc

Meine Lösung finde ich unprofessionel, da ich die Einträge erst in eine Listbox exportiere und dannach die Listboxzeilenanzahl auslese. Kann ich das Überspringen und direkt einen Wert erhalten wieviele Zeilen in der Sektion sind, also so dass dieses ListBox1.Items.Count raus kann ?

Delphi-Quellcode:

konfig:=TIniFile.create('c:\test.ini');
konfig.ReadSection('Passwords', Listbox1.Items);
while zeilenanzahlpw < ListBox1.Items.Count do
begin
  Edit2.Text:=IntToStr(Listbox1.Items.Count);
  konfig.ReadString('Passwords',ListBox1.Items[zeilenanzahlpw],'');
  ListBox2.Items.Add(konfig.ReadString('Passwords',ListBox1.Items[zeilenanzahlpw],''));
  zeilenanzahlpw:=zeilenanzahlpw+1;
end;

[Blackheart]

http://www.delphi-kurs.de/tipps/?id=509