Procedure

ListReports

Module

rReports

Last Modified

7/15/2014 3:26:44 PM

Comments

Reports

Scope

Interfaced

Declaration

procedure ListReports(Dest: TStrings);

Calls Hierarchy


ListReports
 └LoadTree
   └ExtractSection

Called-By Hierarchy


                                ListReports
                 TfrmReports.LoadTreeView┘ 
                TfrmReports.DisplayPage┤   
   TfrmOptionsReportsDefault.btnOKClick┤   
TfrmOptionsReportsDefault.btnResetClick┤   
 TfrmOptionsReportsCustom.btnApplyClick┘   
  TfrmOptionsReportsCustom.btnOKClick┘     

Calls

Name Declaration Comments
LoadTree procedure LoadTree(Tab: String); -

Called-By

Name Declaration Comments
TfrmReports.LoadTreeView procedure LoadTreeView; -


Source

153   procedure ListReports(Dest: TStrings);
154   var
155     i: Integer;
156   begin
157     if uTree = nil
158       then LoadTree('REPORTS')
159     else
160       begin
161         uTree.Clear;
162         LoadTree('REPORTS');
163       end;
164     for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 20));
165   end;