Einzelnen Beitrag anzeigen

Kinimod8

Registriert seit: 9. Jan 2004
Ort: Barsbüttel
317 Beiträge
 
Delphi 6 Personal
 
#1

Die Sections einer Ini-Datei umbenennen

  Alt 9. Mär 2004, 12:10
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]
Dominik Peters
  Mit Zitat antworten Zitat