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

Download this file

27 lines (27 with data), 3.2 kB

Gx_l]!0…jüoÔ	¦*aeS¤System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
&(* find '=' char *)²iSelectEndPara := Buffer.Find ( sSearchString := '=' , udiStartPos := iSelectStartPara );ŠIF iSelectStartPara < iSelectEnd AND iSelectEndPara < iSelectEnd THEN¦	Name := Buffer.Copy( udiStart := iSelectStartPara + 1, udiEnd := iSelectEndPara );.    (* find '"' char *)¶	iSelectStartValue := Buffer.Find ( sSearchString := '"' , udiStartPos := iSelectEndPara );0     (* find '"' char *)¸	iSelectEndValue := Buffer.Find ( sSearchString := '"' , udiStartPos := iSelectStartValue );´	Parameter := Buffer.Copy( udiStart := iSelectStartValue + 1, udiEnd := iSelectEndValue );T	iSelectStartPara := iSelectEndValue + 1 ;
ELSE 0     (* find '<' char *)ª	iSelectEndValue := Buffer.Find ( sSearchString := '<' , udiStartPos := iSearchPos );ž	Name := Buffer.Copy( udiStart := iSearchPos + 1, udiEnd := iSelectEndValue ); END_IF;,NextParameter := Name;InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94} TMETHOD PUBLIC NextParameter : T_MaxString;!VAR_OUTPUT"8    Parameter : T_MaxString;#END_VAR$VAR%.    Name : T_MaxString;ÐÐÐEÐÐ	
­$ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­%ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­&ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ ÚÐ-ÐÐ	
­'ÚÐ-ÐÐ	
­!ÚÐ-ÐÐ	
­"ÚÐ-ÐÐ	
­#ÚÐ-ÐÐ	
­ÚÐ-ÐÐEÐÐ	
­ÚÐ- ÐÐ	
­ÚÐ-!ÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-%ÐÐ	
­ÚÐ-#