如何同时移动store中多种品种entity的不同数量

zhangjunsunyu

如题，即如果store中存放有4种entity分别为part1,part2,part3,part4,每次需移动数量分别为4，3,1,1。按下面语句是否可行，不知道怎修改，或者类似语句该如何编写，向大家求救。
is
        a,b:integer;
do
6 e  E5 A1 }! g# T0 x. z+ `        if store.cont.name="part1" then
5 W/ p$ |# u8 D1 @                for a:=1 to 4 loop
                        store.cont.move;
                next;
- n& ?1 J. J! ]        elseif store.cont.name="part2" then
                for b:=1to 3 loop
                        store.cont.move;
                next;
( _, }) `8 T5 L                elseif store.cont.name="part3" then
) `6 j  e0 [0 [                              store.cont.move;
                       elseif store.cont.name="part4" then
! F; r4 P4 r& X) d# Q                                    store.cont.move;
3 C/ _3 O8 o6 n5 H& f9 A                        end;
6 a0 q* b) D" @& ]           end;

老马多拉

估计不行，可以将store看成为二维数组，然后对数组元素操作，而不能对数组名进行操作

dongshui8558

store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
2 T6 n4 k2 }" V! A* mis
        i,j:integer;
do
( N/ p2 C2 B! U5 [5 r- R) T        print store.cont.name;
        for i:=1 to store.ydim loop
                for j:=1 to store.xdim loop
6 V& s: ^6 p2 t& ~3 V' d$ y                        if store[i,j].cont/=void and store[i,j].cont.name= "" then
1 @% p3 ?. w1 V2 }& X$ A# Z                          -------------------
                        end
                next;
5 f- U3 `' u, g        next;
end;

zhangjunsunyu

dongshui8558 发表于 2011-11-22 19:19
store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
...

% |* v' z- e% x恩，谢谢您的解答，对我很有帮助。
想再请问下，如果每次移动四种物料作为一个操作过程，以后没间隔一个小时操作一次这样的循环（即每隔一个小时移动四种物料一次，所移动的物料数量最终是成比例的），要怎么弄呢？

haiqiu_sun

dongshui8558 发表于 2011-11-22 19:19
store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
2 @! z4 |& S! c/ q" J2 K0 p; ?- j" g ...

- i  p- g" b6 e你就是我心中的神，论坛就应该多点您这样的人。

dongshui8558

用编程最简单，用methcall方法，自己看帮助吧，能看懂的。。

zhangjunsunyu

dongshui8558 发表于 2011-11-23 14:07
用编程最简单，用methcall方法，自己看帮助吧，能看懂的。。

  R% @  f* ~5 n$ x; `1 d( e. Q" c是这样吗？
& h1 F$ j* |& `7 Dref(moveout).methcall(str_to_time("1:00:00"));
" A: ?8 N) k# a, {运行不出来啊

dongshui8558

ref(moveout)改为self

xuwenfei

dongshui8558真是高手啊，留个QQ吧？

xueya

我想问个问题，store只有入口控制，没有出口控制，那你的这段程序是放在入口控制的method里吗？