Function

BadTemplateName

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function BadTemplateName(Text: string): boolean;

Called-By Hierarchy


                              BadTemplateName
                             GetXMLFromWord┤ 
TfrmTemplateEditor.mnuImportTemplateClick┘ │ 
                     TTemplate.CanExportXML┤ 
                                ..(rec)..┤ │ 
TfrmTemplateEditor.mnuExportTemplateClick┘ │ 
                                   ScanTree┤ 
             TfrmTemplateEditor.ScanNames┘ │ 
       TfrmTemplateEditor.btnApplyClick┤   │ 
   TfrmTemplateEditor.mnuRefreshClick┘ │   │ 
          TfrmTemplateEditor.btnOKClick┤   │ 
      TfrmTemplateEditor.FormCloseQuery┘   │ 
             TfrmTemplateEditor.edtNameExit┘ 

Called-By

Name Declaration Comments
TTemplate.CanExportXML function CanExportXML(Data, Fields: TStringList; IndentLevel: integer = 0): boolean; -
TfrmTemplateEditor.edtNameExit procedure edtNameExit(Sender: TObject); -
GetXMLFromWord function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; -
ScanTree procedure ScanTree(Tree: TTreeView); -


Source

1025  function BadTemplateName(Text: string): boolean;
1026  begin
1027    Result := FALSE;
1028    if(Text = NewTemplateName) or (length(Text) < 3) then
1029      Result := TRUE
1030    else
1031    if(not (Text[1] in ['a'..'z','A'..'Z','0'..'9'])) then
1032      Result := TRUE;
1033  end;