Destructor

TLabTest.Destroy

Directives

Override

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

destructor Destroy; override ;

Called-By Hierarchy


                    TLabTest.Destroy
            TfrmODBBank.InitDialog┘ 
          TfrmODBBank.FormCreate┤   
     TfrmODBBank.SetOnQuickOrder┤   
     TfrmODBBank.cboQuickClick┘ │   
      TfrmODBBank.btnRemoveClick┤   
       TfrmODBBank.SetupDialog┤ │   
TfrmODBBank.SetOnQuickOrder...┘ │   
   TfrmODBBank.btnRemoveAllClick┘   

Called-By

Name Declaration Comments
TfrmODBBank.InitDialog procedure InitDialog; override; -


Source

1506  destructor TLabTest.Destroy;
1507  var
1508    i: Integer;
1509  begin
1510    if CollSampList <> nil then
1511      with CollSampList do for i := 0 to Count - 1 do
1512       with TCollSamp(Items[i]) do
1513        begin
1514          WardComment.Free;
1515          Free;
1516        end;
1517    CollSampList.Free;
1518    SpecimenList.Free;
1519    UrgencyList.Free;
1520    CurWardComment.Free;
1521    Comment.Free;
1522    inherited Destroy;
1523  end;