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

zhangjunsunyu

如题，即如果store中存放有4种entity分别为part1,part2,part3,part4,每次需移动数量分别为4，3,1,1。按下面语句是否可行，不知道怎修改，或者类似语句该如何编写，向大家求救。
5 T5 h+ v- `4 s: {is
6 P; w% l  f4 t' G3 ]        a,b:integer;
+ k' ]+ w; h* b0 P- @7 ido
        if store.cont.name="part1" then
- b5 G4 {) h5 T3 ~, }: ?                for a:=1 to 4 loop
. x/ f! D) ?2 W6 G9 \4 G0 D( ^- j3 P                        store.cont.move;
                next;
2 G, g2 Z+ @# n$ z4 ]* p0 G; G        elseif store.cont.name="part2" then
                for b:=1to 3 loop
: B/ Z' `2 z# Z6 ^( I  ^! m                        store.cont.move;
: p) r) N& _0 I8 A                next;
3 X- g8 k% y* ]% v                elseif store.cont.name="part3" then
                              store.cont.move;
                       elseif store.cont.name="part4" then
                                    store.cont.move;
                        end;
           end;

老马多拉

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

dongshui8558

store.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
$ S& L: }8 r5 Pis
! \) ~2 |! A' Y& F1 M+ q        i,j:integer;
do
+ q; c- M  j' W! I3 w        print store.cont.name;
4 V: ^& b0 X2 c/ A        for i:=1 to store.ydim loop
3 G  u. i7 d3 I5 s2 [& m! U                for j:=1 to store.xdim loop
                        if store[i,j].cont/=void and store[i,j].cont.name= "" then
                          -------------------
, j  }8 _8 N" g# B                        end
1 C# b$ l% s1 x4 g/ [4 ^( T                next;
        next;
end;

zhangjunsunyu

dongshui8558 发表于 2011-11-22 19:19
- z$ d: L1 ^. k6 c; n+ zstore.cont.这样只能访问Store的第一个位置，其他问题是不能访问的，如2楼所说，需要进行寻找，类似下面：
...

( K% u) ?; g4 `- s# X7 I恩，谢谢您的解答，对我很有帮助。
想再请问下，如果每次移动四种物料作为一个操作过程，以后没间隔一个小时操作一次这样的循环（即每隔一个小时移动四种物料一次，所移动的物料数量最终是成比例的），要怎么弄呢？

haiqiu_sun

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

# t/ s' G) {6 r1 W; E你就是我心中的神，论坛就应该多点您这样的人。

dongshui8558

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

zhangjunsunyu

dongshui8558 发表于 2011-11-23 14:07
/ b4 \; Q/ V" _8 g' L+ U* f用编程最简单，用methcall方法，自己看帮助吧，能看懂的。。

$ z/ @, O4 `* e是这样吗？
& {+ z# b  b9 ~3 ]. w. }7 q, }! dref(moveout).methcall(str_to_time("1:00:00"));
& q, B9 z* V5 f/ I" f9 N运行不出来啊

dongshui8558

ref(moveout)改为self

xuwenfei

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

xueya

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