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

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.

Hallo St. Pauli,

zusammenfalten · markieren

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

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

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

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

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.

Hi,

hier nochmal eine Lösung:

markieren

Delphi-Quellcode:

const
  DateiName = 'Wasweißich.txt';

markieren

Delphi-Quellcode:

var
  Hallo: TStringList;

.
.
.

markieren

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]

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

@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.