diff options
Diffstat (limited to 'examples/apps/ide/src')
-rw-r--r-- | examples/apps/ide/src/filemonitor.pas | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/examples/apps/ide/src/filemonitor.pas b/examples/apps/ide/src/filemonitor.pas index 674109b2..2bb35409 100644 --- a/examples/apps/ide/src/filemonitor.pas +++ b/examples/apps/ide/src/filemonitor.pas @@ -55,6 +55,7 @@ type procedure DoFileChangeNotification; public constructor CreateCustom; + destructor Destroy; override; procedure Execute; override; property Interval: LongWord read FInterval write FInterval; procedure AddFile(const AFilename: TfpgString); @@ -154,10 +155,16 @@ end; constructor TFileMonitor.CreateCustom; begin Create(True); - FFileList := TObjectList.create; + FFileList := TObjectList.create(True); FInterval := 500; end; +destructor TFileMonitor.Destroy; +begin + FFileList.Free; + inherited Destroy; +end; + procedure TFileMonitor.Execute; var i: integer; |