Procedure

AddXMLData

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Declaration

procedure AddXMLData(Data: TStrings; const Pad: string; FldType: TTemplateExportField; const Value, DefValue: string);

Called-By Hierarchy


                                     AddXMLData
                                   AddXMLBool┤ 
                     TTemplate.CanExportXML┘ │ 
                                ..(rec)..┤   │ 
TfrmTemplateEditor.mnuExportTemplateClick┘   │ 
                               GetXMLFromWord┤ 
  TfrmTemplateEditor.mnuImportTemplateClick┘ │ 
                    TTemplate.CanExportXML...┘ 

Called-By

Name Declaration Comments
AddXMLBool procedure AddXMLBool(Data: TStrings; const Pad: string; FldType: TTemplateExportField; const Value: boolean); -
TTemplate.CanExportXML function CanExportXML(Data, Fields: TStringList; IndentLevel: integer = 0): boolean; -
GetXMLFromWord function GetXMLFromWord(const AFileName: string; Data: TStrings): boolean; -


Source

1051  procedure AddXMLData(Data: TStrings; const Pad: string; FldType: TTemplateExportField; const Value, DefValue: string);
1052  begin
1053    if(Value <> '') and (Value <> DefValue) then
1054      Data.Add(Pad + '  <' + TemplateExportTag[FldType] + '>' + Text2XML(Value) +
1055                      '</' + TemplateExportTag[FldType] + '>');
1056  end;