TINIFile, mehrere gleiche Sections?

[schwa226]

Danke!

Jedoch geht von Haus das mit den Doppelten INI-Sections bei FastIniFiles 3.3a bei mir nicht.

Wenn ich die Überprüfung ob die Section schon in der Liste ist dekativiere geht es:

Delphi-Quellcode:

                  // Sektionsnamen kopieren
                  Buf := Trim(Copy(Buf, 2, RBrPos - 2));
//                  if SectionIndex(Buf) = -1 then
//                  begin
                    // Sektion hinzufügen
                    SetLength(Entries, Length(Entries) + 1);
                    Entries[High(Entries)] := TFIniSection.Create(Buf);
                    CurrentSection := High(Entries);
                    // Ggf. Kommentar speichern
                    if CBuf <> '' then
                      (Entries[High(Entries)] as TFIniSection).Comment := CBuf;
                    // Ansonsten Fehler (Eintrag mehrfach definiert)
//                  end
//                  else
//                    isFileValid := False
                      // Syntaxfehler, wenn Sektionsname leer ist

Nun werden alle Sections in die Liste aufgenommen. Mit EnterSection wird dann auch die richtige ausgewählt.

Danke!

[himitsu]

Komisch, ich dachte das geht automatisch/immer ... kann mich nicht erinner, daß TDS mal erwähnt hat, daß er für diese Funktion extra was umbauen muß.

probier mal diese Version:
http://www.delphipraxis.net/internal...131614#1131614

[schwa226]

Danke!

Die 3.3b geht!

Habe das noch hinzugefügt:

Delphi-Quellcode:

function TFIniFile.AddSection(const nName: string = ''): Integer;
var
  Buf : String;
begin
  if (nName = '') then
  begin
    raise EArgumentException.Create('AddSection braucht einen Namen!');
    Result := -1;
  end
  else begin
    SetLength(Entries, Length(Entries) + 1);
    Entries[High(Entries)] := TFIniSection.Create(nName);
    Result := High(Entries);
  end;
end;

Wenn mehrere gleiche Sections vorhanden sind konnte ich keine neue, mit gleichen Section Namen erzeugen.
Mit AddSection wird die neue Section mit gleichem Namen auf jeden Fall angelegt.
Result ist der Index der neuen Section.