diff options
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -182,14 +182,14 @@ end; procedure TForm1.FormDestroy(Sender: TObject); begin - if fileExists(pidDatei) then - deleteFile(pidDatei); if not fehler then begin if pegelDatei<>'' then pegel.speichern(pegelDatei); if wetterDatei<>'' then wetter.speichern(wetterDatei); end; + if fileExists(pidDatei) then + deleteFile(pidDatei); pegel.free; wetter.free; end; |