Thema
:
Delphi
Wie kann ich den gesamten Inhalt einer TextDatei löschen?
Einzelnen Beitrag anzeigen
Daniel B
(Gast)
n/a Beiträge
#
1
Wie kann ich den gesamten Inhalt einer TextDatei löschen?
7. Jun 2002, 18:33
Den OpenDialog-Teil evtl. entfernen.
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Button1Click(Sender: TObject);
var
tf: TextFile;
begin
if
OpenDialog1.Execute
then
begin
AssignFile(tf, OpenDialog1.FileName);
ReWrite(tf);
CloseFile(tf);
end
;
end
;
Zitat