Технологии тестирования программного обеспечения
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
-,.OptionStr.functionParameters.OptionStr(ParamNum:byte):string;varI,Len:Byte;beginLen:=0;I:=OptPosition(ParamNum);ifI<>0thenwhile(I<=SLen)andnot(ParStr[I]inOptDelim)dobeginInc(Len);OptionStr[Len]:=ParStr[I];Inc(I);end;OptionStr[0]:=Char(Len);end;:--------------------L---------T--------------------+---------Len=0;I=OptPosition(ParamNum)L---------T----------/\/\/I=0\----------------\/\/\/----------------+/\/\/I<=SLen\/\------------->+\ParStr(I)/\OptDelim/\/\/----------+---------Len=Len+1;OptionStr(Len)=ParStr(I)L---------T----------L--------------------------------------------------+---------L--------------------2.2.:I=0,I<=SLen,not(ParStr[i]inOptDelim).,,,,I=0,I<>0I<=SLen,I>SLen,(ParStr[i]inOptDelim)=true,(ParStr[i]inOptDelim)=false.,2.2.(:MAIN.GRM/Q/P,SLen=13,ParamNum=1):.2.2.===T==================T===================T====================N---+------------------+-------------------+--------------------1I=0OptionStr(0)=0OptionStr(0)=0---+------------------+-------------------+--------------------2I=1OptionStr(0)=0OptionStr(0)=0(ParStr[i]inOptDelim)=true---+------------------+-------------------+--------------------3I=1OptionStr(0)=8OptionStr(0)=8(ParStr[i]inOptDelim)=false---+------------------+-------------------+--------------------4I=11OptionStr(0)=0OptionStr(0)=0(ParStr[i]inOptDelim)=true---+------------------+-------------------+--------------------5I=11OptionStr(0)=0OptionStr(0)=0(ParStr[i]inOptDelim)=falseL============================================================-,.ifAandBthen...:A=true,B=falseA=false,B=true.then-if.,-/.,-,--./-%