Procedure

DisplayErrors

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Declaration

procedure DisplayErrors(Errors: TStringList; SingleError: string = '');

Called-By Hierarchy


                             DisplayErrors
                            SaveTemplate┤ 
                      SaveAllTemplates┤ │ 
    TfrmTemplateEditor.btnApplyClick┤ │ │ 
TfrmTemplateEditor.mnuRefreshClick┘ │ │ │ 
       TfrmTemplateEditor.btnOKClick┤ │ │ 
   TfrmTemplateEditor.FormCloseQuery┘ │ │ 
          TfrmTemplateEditor.InitTrees┘ │ 
       TfrmTemplateEditor.FormCreate┤   │ 
      TfrmTemplateEditor.RefreshData┘   │ 
TfrmTemplateEditor.mnuRefreshClick┘     │ 
                     SaveAllTemplates...┘ 

Called-By

Name Declaration Comments
SaveAllTemplates function SaveAllTemplates: boolean; -
SaveTemplate procedure SaveTemplate(Template: TTemplate; Idx: integer; ErrorList: TStrings = nil); -


Source

741   procedure DisplayErrors(Errors: TStringList; SingleError: string = '');
742   begin
743     if(assigned(Errors)) then
744       ShowMsg(Errors.text)
745     else
746       ShowMsg(SingleError);
747   end;