INI - bessere übersicht durch leere zeile?

[shmia]

Delphi-Quellcode:

{**************************************************************************
 * NAME:    BeautifyInifile
 * DESC:    Fügt vor jeder Section in einem Ini-File eine Leerzeile ein,
 *          falls diese fehlen sollte
 * PARAMS:  fname => Dateiname des INI-File
 * CREATED: 18-03-2004/shmia
 * CHANGED: 00-00-2004/shmia
 *************************************************************************}
procedure BeautifyInifile(const fname:string);
   function IsIniSection(const line:string):Boolean;
   begin
      Result := (Length(line) >= 3) and (line[1]='[') and (line[Length(line)]=']');
   end;
var
   list : TStringList;
   i : Integer;
   s : string;
   sectionfound : Boolean;
begin
   list := TStringList.Create;
   sectionfound := False;

   try
      list.LoadFromFile(fname);

      for i :=list.Count-1 downto 0 do
      begin
         s := list[i];

         if sectionfound and (s <> '') then
         begin
            // insert empty line
            list.Insert(i+1, '');
         end;
         sectionfound := IsIniSection(s);

      end;
      list.SaveToFile(fname);
   finally
      list.Free;
   end;
end;