co📁e - XML File Handling

(*
    Creates a new Tag:
    XML: <MyTag>
    XML.NewTag(Name: = 'MyTag');
*)
METHOD PUBLIC NewTag
VAR_INPUT
    Name : T_MaxString;
IF xTagOpen THEN
    Buffer.Append := TAG_CLOSE;
END_IF;
Buffer.Append := TAG_OPEN;
Buffer.Append := Name;
xTagOpen := TRUE;
TagList.Append := FORWARD_SLASH;
TagList.Append := Name;