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

Download this file

16 lines (15 with data), 1.7 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
(*
    Adds a comment;
    XML: <!-- MyComment -->
    XML.NewComment(Comment: = 'MyComment');
*)
METHOD PUBLIC NewComment
VAR_INPUT
    Comment : T_MaxString;
IF xTagOpen THEN
    Buffer.Append := TAG_CLOSE;
    xTagOpen := FALSE;
END_IF;
Buffer.Append := OPEN_COMMENT;
Buffer.Append := Comment;
Buffer.Append := CLOSE_COMMENT;