diff options
| author | Erich Eckner <git@eckner.net> | 2015-08-04 13:01:32 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-08-04 13:01:32 +0200 |
| commit | 99471aef938c37216d67122c48fdaebc2902af9d (patch) | |
| tree | 82efc62f3f18aac206226178358b3252181d3b6b /protokollunit.pas | |
| parent | 00eaedf3d3597cb30742a484cf62dbf62128bf8b (diff) | |
| download | units-99471aef938c37216d67122c48fdaebc2902af9d.tar.xz | |
tProtokollant loescht jetzt Datei bevor er sie schreibt
Diffstat (limited to 'protokollunit.pas')
| -rw-r--r-- | protokollunit.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/protokollunit.pas b/protokollunit.pas index 8b1cf53..cb8961d 100644 --- a/protokollunit.pas +++ b/protokollunit.pas @@ -42,6 +42,8 @@ begin getmem(sDat,sizeof(tProtokolldatei)); sDat^.einrueckung:=10; assignfile(sDat^.datei,dateiname); + if fileexists(dateiname) then + deleteFile(dateiname); rewrite(sDat^.datei); bes:=''; setlength(kinder,0); |