Entwickler-Ecke :: Thema anzeigen - Inhalt einer Textdatei löschen

gogi2207 - Mo 30.09.02 12:08
Titel: Inhalt einer Textdatei löschen

Hi,
wie kann man bei einer Textdatei mit Endung txt den Inhalt löschen ohne dass man hierfür eine neue Datei erstellt (also nur mit einer Datei arbeitet)?

:shock:

LCS - Mo 30.09.02 12:30

Hi
so ganz verstehe ich dein Problem jetzt nicht. Willst du die Datei komplett löschen dann wäre DeleteFile das einfachste.
Oder soll die leere Datei tatsächlich erhalten bleiben?

Gruss Lothar

LCS - Mo 30.09.02 12:36

Hi
dann könntest du das beispielsweise so machen:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure DateiLeeren(Dateiname: string);
var
 lst : TStringList;
begin
  lst : TStringList.Create;
  try
    lst.SaveToFile(Dateiname);
  finally
    lst.free;
  end;
end;

Ist vielleicht net sonderlich elegant, aber sollte funktionieren.

Gruss Lothar

DeCodeGuru - Mo 30.09.02 12:49

Hi LCS,

wie wäre es denn mit:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure DateiLeeren(Dateiname: string); 
var 
lst : TStringList; 
begin 
  lst : TStringList.Create; 
  try 
    lst.Clear;
    lst.SaveToFile(Dateiname); 
  finally 
    lst.free; 
  end; 
end;

Das Clear haste wohl vergessen :mrgreen:

SvenAbeln - Mo 30.09.02 12:49

Hallo,

erstell die Datei doch einfach mit rewrite neu

Aus der Hilfe

Zitat:

procedure Rewrite(var F: File [; Recsize: Word ] );
[...]
Rewrite erstellt eine neue externe Datei unter dem F zugewiesenen Namen.
Ist schon eine gleichnamige externe Datei vorhanden, wird sie gelöscht und an ihrer Stelle die neue Datei angelegt.

gogi2207 - Mo 30.09.02 12:52

Habe bis jetzt folgenden Quelltext:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Procedure tform1.Ausgeben(Inputfile:string); 
var counter : integer; 
    Textzeile : string; 
    F1 : textfile; 
begin 
  AssignFile(F1, Inputfile); 
  reset(F1); 
  append(F1); 
  For counter := 0 to stringgrid1.rowcount do 
  Begin 
    Textzeile := stringgrid1.rows[counter].GetText; 
    write(F1,Textzeile); 
  end; 
  closefile(F1); 
end;

Er liest also aus einem Stringgrid aus und hängt es hinten an eine Textdatei an. Er soll den vorhandenen Text dieser Datei jedoch überschreiben. Und dafür sollte er zunächst den Inhalt der Textdatei löschen.

LCS - Mo 30.09.02 12:59

Hi
wenn der Inhalt der Textdatei doch sowieso immer neu geschrieben wird, dann

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Procedure tform1.Ausgeben(Inputfile:string); 
var counter : integer; 
Textzeile : string; 
F1 : textfile; 
begin 
AssignFile(F1, Inputfile); 
rewrite(F1); // <== Änderung ==>

For counter := 0 to stringgrid1.rowcount do 
Begin 
Textzeile := stringgrid1.rows[counter].GetText; 
write(F1,Textzeile); 
end; 
closefile(F1); 
end;

@CodeGuru

DeCodeGuru hat folgendes geschrieben:

Das Clear haste wohl vergessen

Ne, aber weil ich schreibfaul bin, geh ich mal davon aus, dass eine Stringlist nachm Erzeugen leer is :mrgreen:

Gruss Lothar

SvenAbeln - Mo 30.09.02 13:01

Hallo,

Lösche mal diese beiden Zeilen

Zitat:

reset(F1);
append(F1);

( das reset macht hier sowieso nichts da append die Datei wieder
schließt um sie dann zum anhängen neuer daten wieder zu öffnen )

und ersetze sie durch

Quelltext

1:	rewrite(F1);

:lol:

gogi2207 - Mo 30.09.02 13:43

Hatte es schon mit rewrite versucht aber mein Problem ist, das mehrer Personen auf die Datei zugreifen und wenn durch rewrite eine neue Datei erstellt wird führt dies doch zu Komplikationen oder nicht?

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!