Einzelnen Beitrag anzeigen

Benutzerbild von Martin K
Martin K

Registriert seit: 20. Okt 2005
919 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Leerzeilen aus Ini-Datei entfernen

  Alt 27. Nov 2005, 10:46
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 !
Mit den Menschen ist es wie mit Computern -
es gibt Nullen und Einsen.
  Mit Zitat antworten Zitat