Changeset 19 for trunk/Modules


Ignore:
Timestamp:
Nov 15, 2012, 6:08:11 PM (12 years ago)
Author:
chronos
Message:
  • Opraveno: Úniky paměti.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55lib
        66Dochazka
         7ChronIS

  • trunk/Modules/Attendance/UModuleAttendance.pas

    r18 r19  
    343343
    344344procedure TModuleAttendance.DoStop;
    345 var
    346   I: Integer;
    347 begin
     345begin
     346  FreeAndNil(ModelUser);
    348347  FormMain.UnregisterDataViewList(ViewListUser);
     348  FreeAndNil(ViewListUser);
    349349  FormMain.UnregisterDataViewForm(ViewFormUser);
     350  FreeAndNil(ViewFormUser);
    350351  FormMain.UnregisterDataViewList(ViewListAttendance);
     352  FreeAndNil(ViewListAttendance);
    351353  FormMain.UnregisterDataViewForm(ViewFormAttendance);
     354  FreeAndNil(ViewFormAttendance);
    352355  FormMain.UnregisterDataViewList(ViewListHoliday);
     356  FreeAndNil(ViewListHoliday);
    353357  FormMain.UnregisterDataViewForm(ViewFormHoliday);
     358  FreeAndNil(ViewFormHoliday);
    354359  FormMain.UnregisterDataViewList(ViewListLog);
     360  FreeAndNil(ViewListLog);
    355361  FormMain.UnregisterDataViewForm(ViewFormLog);
     362  FreeAndNil(ViewFormLog);
    356363  FormMain.UnregisterDataViewList(ViewListOperation);
     364  FreeAndNil(ViewListOperation);
    357365  FormMain.UnregisterDataViewForm(ViewFormOperation);
     366  FreeAndNil(ViewFormOperation);
    358367  FormMain.UnregisterDataViewList(ViewListPassage);
     368  FreeAndNil(ViewListPassage);
    359369  FormMain.UnregisterDataViewForm(ViewFormPassage);
     370  FreeAndNil(ViewFormPassage);
    360371  FormMain.UnregisterDataViewList(ViewListTerminal);
     372  FreeAndNil(ViewListTerminal);
    361373  FormMain.UnregisterDataViewForm(ViewFormTerminal);
     374  FreeAndNil(ViewFormTerminal);
    362375  FreeAndNil(DataModuleAttendance);
    363376  inherited DoStop;
Note: See TracChangeset for help on using the changeset viewer.