function MyConst_AddToFS(fsScr: TfsScript; sListConstNames:string; sConstType:string; sConstVal:string ):boolean; //Добавить в FastScript новую константу на "двух языках" Var sNameConst:string; i,c:integer; begin Result:=false; if Assigned(fsScr) then begin sListConstNames:=trim(sListConstNames); sConstType:=trim(sConstType); sConstVal:=trim(sConstVal); if (sListConstNames<>'') and (sConstType<>'') and (sConstVal<>'') then begin c:=Get_CountWords_In_String(sListConstNames, #32+#9+';'); if c>0 then begin Result:=true; i:=0; while i<c do begin i:=i+1; sNameConst:=trim(Get_Word_From_String(sListConstNames, i, #32+#9+';')); if sNameConst<>'' then begin fsScr.AddConst(sNameConst, sConstType, sConstVal); end else begin Result:=false; i:=c+1; end; end; end; end; end; end;