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]