Die Sections einer Ini-Datei umbenennen

[Kinimod8]

Hallo,
Leider bietet TIniFile keine Funktion, um die Sektionen einer Ini-Datei umzubenennen. Aus diesem Grunde muss die Ini in eine StringList eingelesen werden und mit dessen Funktionen der Name ersetzt werden.

Delphi-Quellcode:

uses IniFiles;

function RenameIniSection(IniFile: TIniFile;OldSection,NewSection: String): boolean;
var
  ini: TStringList;
  ind: Integer;
begin
  result := false;
  ini := TStringList.Create;
  ini.LoadFromFile(IniFile.FileName);
  if(ini.Count > 0) then
  begin
    ind := ini.IndexOf('['+OldSection+']');
    if(ind <> -1) then
      if ini.indexOf('['+NewSection+']') < 0 then
      begin
        ini.Strings[ind] := '['+NewSection+']';
        result := true;
      end;
      ini.SaveToFile(IniFile.FileName);
  end;
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]