Inhalt einer Textdatei löschen

[St.Pauli]

Hi, habe ein ganz schönes Anfänger-Problem.
Wie kann ich den Inhalt einer Textdatei löschen??

Jetzt schonmal danke für jede Antwort

[Die Muhkuh]

Du könntest ja auch gleich die Datei löschen oder?

Wenn nicht dann mach so:

Per StringList die Datei laden -> StringList.Clear aufrufen und wieder abspeichern.

[alcaeus]

Hallo St. Pauli,

Delphi-Quellcode:

function ClearFile(FileName: String): Boolean;
var
  F: Textfile;
begin
  AssignFile(F, FileName);
  {$I-}
  Rewrite(F);
  {$I+}
  Result := IOResult=0;
  CloseFile(F);
end;

Die Funktion liefer true zurueck, falls die Operation erfolgreich laeuft.

Greetz
alcaeus

[St.Pauli]

OK, THX, beide Vorschläge laufen.
Jetzt hab ich die Qual der Wahl

[Die Muhkuh]

Pack dir mal ne Riesen Txt (vielleicht so 500 MB bis 1 Gig) und teste mal was schneller ist -> Das würde ich dann nehmen

[alcaeus]

Zitat von Spider:

Pack dir mal ne Riesen Txt (vielleicht so 500 MB bis 1 Gig) und teste mal was schneller ist -> Das würde ich dann nehmen

Tja, dann hast du verloren. Im Unterschied zu deinem Code laedt meiner die Datei gar nicht, sondern weisst der Dateivariablen den Namen zu, und macht dann sauber. Du musst die Datei erstmal laden

Greetz
alcaeus

[Die Muhkuh]

Zitat von alcaeus:

Zitat von Spider:

Pack dir mal ne Riesen Txt (vielleicht so 500 MB bis 1 Gig) und teste mal was schneller ist -> Das würde ich dann nehmen

Tja, dann hast du verloren. Im Unterschied zu deinem Code laedt meiner die Datei gar nicht, sondern weisst der Dateivariablen den Namen zu, und macht dann sauber. Du musst die Datei erstmal laden

Greetz
alcaeus

Tja, dann hast du wieder recht .


Ich glaub ich muss mit das AssignFile & Co. auch mal ankieken.

[Chegga]

Hi,

hier nochmal eine Lösung:

Delphi-Quellcode:

const
  DateiName = 'Wasweißich.txt';

Delphi-Quellcode:

var
  Hallo: TStringList;

.
.
.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hallo := TStringList.Create;
  Hallo.LoadFromFile(DateiName);
  Hallo.Clear;
  Hallo.SaveToFile(DateiName);
end;

MfG Marc

[Edit] Code editiert. Was habe ich nur wieder geschrieben?! [/Edit]

[Die Muhkuh]

Hi Marc,

das ist ja genau das was ich gesagt habe

Nur rufe ich Clear auf, aber deswegen ist deins nicht schneller, denn der Text muss ja immernoch geladen werden

[Daniel]

@Marc: Die Lösung mit der StringList hatten wir doch schon und wenn Du 'Destroy' aufrufst, zerstörst Du das Objekt und es knallt beim SaveToFile. Ist es nicht "Clear", was Du meinst?

Aber bitte keine weiteren Lösungen, die schon vorgeschlagen wurden.