Inhalt einer Textdatei (.txt) löschen

[yasR]

Hey,

mein Programm soll bei 100 Zeilen den Inhalt einer Datei löschen.
Mir fällt aber nicht ein, wie man das machen könnte. Das hier habe ich schon :

Delphi-Quellcode:

var StrCounter := TStrings; 



 StrCounter := Tstringlist.create;
 StrCounter.loadfromfile('pardaka.txt');

  if StrCounter.Counter  >= 100 then begin

// Inhalt der Textdatei löschen

end;

[DeddyH]

Delphi-Quellcode:

for i := StrCounter.Count - 1 downto 100 do
  StrCounter.Delete(i);

[edit] Oder auch so:

Delphi-Quellcode:

while StrCounter.Count > 100 do
  StrCounter.Delete(100);

[/edit]

[yasR]

Es kommt bei beiden Variaten zwar keine Fehlermeldung beim kompilieren, er löscht die Datensätze aber nicht.

[Neutral General]

Delphi-Quellcode:

StrCounter.SaveToFile('pardaka.txt');

nicht vergessen ;)

[Klaus01]

Guten Morgen,

lösche das File wenn es mehr als 100 Zeilen hat
und lege dann ein Neues an.

Wenn Du nur die Zeilen in der Stringlist löschst
werden die Zeilen nicht in der Datei gelöscht solange
Du die StringList nicht wieder auf den Datenträger zurückschreibst.

Grüße
Klaus

[DeddyH]

Muss man denn immer alles haarklein vorkauen :roll:?

[edit] BTW: Benutze besser absolute Pfade, sonst kannst Du u.U. unangenehme Überraschungen erleben. [/edit]

[yasR]

Danke, an SaveToFile hat es gelegen, es klappt nun wunderbar.
Vielen Dank an Alle ;-)