1.
Warum fügst du überhaupt erst Leerzeilen ein?
Das ist doch nicht schlimm, wenn die ini so aussieht:
[15.10.2005]
TXT1=Value1
TXT2=Value2
[16.10.2005]
TXT1=Value1
TXT2=Value2
usw.
Oder?
2.
Meine Methode mit einer StringList wäre diese:
Delphi-Quellcode:
procedure LeerzeilenLoeschen(FileName: String);
var S: TStringList; i: Integer;
begin
S:=TStringList.Create;
S.LoadFromFile(FileName);
For i:=0 to S.Count-1 do
begin
If S[i]='' then S.Delete(i);
end;
S.SaveToFile(FileName);
S.Free;
end;
Ich habe den Code zwar nicht getestet, aber theoretisch müsste das so funktionieren.