Procedure

AddFieldHeader

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

GetXMLFromWord

Declaration

procedure AddFieldHeader(FldType: TTemplateFieldType; First: boolean);

Calls Hierarchy


AddFieldHeader
 └AddField

Called-By Hierarchy


                               AddFieldHeader
                             GetXMLFromWord┘ 
TfrmTemplateEditor.mnuImportTemplateClick┘   

Calls

Name Declaration Comments
AddField procedure AddField(Typ: TTemplateFieldExportField; Value: string; Pending: boolean = FALSE); -

Called-By

Name Declaration Comments
GetXMLFromWord function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; -


Source

1134  procedure AddFieldHeader(FldType: TTemplateFieldType; First: boolean);
1135  var
1136    tmp: string;
1137  
1138  begin
1139    tmp := '<';
1140    if not First then
1141      tmp := tmp + '/';
1142    tmp := tmp + XMLFieldTag;
1143    if First then
1144    begin
1145      fname := 'WORDFLD_' + FldNames[FldType] + '_';
1146      tfIdx := FldType;
1147      tmp := tmp + ' ' + TemplateFieldExportTag[tfName] + '="' + Text2XML(fname);
1148    end;
1149    if not First then
1150      tmp := tmp + '>';
1151    Fields.Add(tmp);
1152    if First then
1153      AddField(tfType, TemplateFieldTypeCodes[FldType]);
1154  end;