[r45]: / trunk / library / XmlControl / FB_XmlControl / NewTag / svnobj  Maximize  Restore  History

Download this file

18 lines (17 with data), 1.8 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
(*
    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;
    AddCrLf();
END_IF;
Buffer.Append := TAG_OPEN;
Buffer.Append := Name;
xTagOpen := TRUE;
TagList.Append := FORWARD_SLASH;
TagList.Append := Name;