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.