Leerzeilen aus Ini-Datei entfernen

[Martin K]

Zitat von Phistev:

@Martin K: Lass die for-Schleife rückwärts laufen, sonst gibt's hinterher Probleme (Die Bedingung wird nur einmal ausgewertet...). Außerdem gibt's das schon in der Code-Lib

Hast recht, hab meinen Code geändert:

Delphi-Quellcode:

procedure LeerzeilenLoeschen(FileName: String); 
var S: TStringList; i: Integer;
begin
  S:=TStringList.Create;
  S.LoadFromFile(FileName);
  i:=0;
  Repeat
    If S[i]='' then S.Delete(i)
    else Inc(i);
  Until i=S.Count;
  S.SaveToFile(FileName);
  S.Free;
end;

So funzt es aber, ich hab's getestet !!!

@Ralf Stehle:
Ich bleib dabei, wenn man erst gar keine Leerzeilen einfügt (mit Absicht, also +#13#10 oder so), dann hat die ini auch gar keine !