[r55]: / trunk / library / FB_XmlControl / NextParameter / svnobj  Maximize  Restore  History

Download this file

14 lines (13 with data), 2.9 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
METHOD PUBLIC NextParameter : T_MaxString;
VAR_OUTPUT
    Parameter : T_MaxString;
END_VAR
VAR
IF iSelectStartPara < iSelectEnd AND iSelectEndPara < iSelectEnd THEN
    iSelectStartValue := Buffer.Find(sSearchString := QUOTE, udiStartPos := iSelectEndPara);
    Parameter := Buffer.Copy( udiStart := iSelectStartValue + 1, udiEnd := iSelectEndValue);
    iSelectStartPara := iSelectEndValue + 1;
ELSE
    Name := Buffer.Copy( udiStart := udiSearchPos + 1, udiEnd := iSelectEndValue); 
END_IF;
NextParameter := Name;