INI-Sektionen

[CyberFred]

Hi!
Gibt es eine Möglichkeit, wie ich aus einer ini-Datei die Anzahl ihrer Sektionen auslesen kann?

ciao

[Luckie]

TIniFile.ReadSections. Und dann die Anzahl der Einträge in der Stringlist mit Count ermitteln.

[Stanlay Hanks]

Wenn du die Ini selber anlegst, würde ich die erste Section z.B. [Allgemein] nennen und dann ein Value mit Anzahl= anlegen und da dann bei dejdem hinzufügen eins dazu addieren. Ansonsten würde ich mit Readsections(Listbox1) alle Sections in eine Listbox laden und dann mit Listbox1.items.count die Anzahl abfragen.

Mist... zu langsam :twisted: :evil: :twisted: :evil: :twisted:

Man liest sich, Stanlay :coder:

[sakura]

ReadSections von TIniFile ließt alle Sektionsnamen in eine String Liste. Dort kannst Du dann vie der Eigenschaft Count die Anzahl ermitteln.

...:cat:...

[CyberFred]

@Luckie:
Also ich hab jetzt folgendes:

Delphi-Quellcode:

ini:=TIniFile.Create(location)

Was genau muss ich da jetzt bei ini.ReadSections() reinschreiben und was hast du mit den 'count' gemeint??? :(

ciao

[Luckie]

Delphi-Quellcode:

uses IniFiles;
procedure TForm1.FormActivate(Sender: TObject);

var
  AppIni: TIniFile;
begin
  AppIni := TIniFile.Create('WIN.INI');
  AppIni.ReadSections(ListBox1.Items);
  AppIni.ReadSection('Ports',Listbox2.Items);
  AppIni.ReadSectionValues('Ports',ListBox3.Items);
  AppIni.Free;
end;

Aus der Delphi-Hilfe. :roll:

[Alexander]

du musst eine Stringliste reinschreiben. Mit der kannst du dann mit Count die Anzahl abfrage (stringliste.count)

[Alexander]

mist zu spät.....
würde das ganze aber noch zwischen try und finally packen, damit AppIni auch wirklich wieder freigegeben wird

[Pseudemys Nelsoni]

wird doch auch ohne try finally wieder freigegeben oder nicht

[MrSpock]

Hallo silent,

hier ist "oder nicht" richtig :mrgreen: .

Wenn das Auslesen der Ini-Datei einen Fehler verursacht, wird die Abarbeitung abgebrochen und eine exception ausgelöst. Der Code nach der Anweisung, die den Fehler verursacht hat wird nicht mehr ausgeführt. Erstellst du jedoch einen try ... finally Block, wird die exception zwar noch nicht als "behandelt" markiert (dazu wäre ein try ... except Block nötig), aber der Code nach dem "finally" wird immer (also auch, wenn keine exception ausgelöst wird) ausgeführt.