本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
. {! B6 X! _) e, ~' A7 B: k. D! R: q8 ^7 C; m; o
各位老师好!. _# E4 U% x! n- W; c
我在使用plant simulation时出现错误6 h; K2 u" b3 n
源码如下
6 L7 D2 t6 i6 B; l- x" o
0 I5 _) |# B- s( s L$ B! ?' Zvar m,n :integer;
* _) |3 [* Y6 i3 w- l( J7 Qvar Name :string;
) A8 E- i/ K! A9 Q" {var Obj :object;% c9 u; H. @ H+ g- F3 `8 |' y0 q
; m5 V. \& X6 i0 o, r: h( z
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;! e6 f7 H8 N- o4 Q
Name := sprint ("OutPut_Line",m); --生产线名称
1 `" d4 K$ E; V* u2 } Obj := str_to_obj(Name); --转换成对象变量
0 O7 Y U8 T+ J" e$ S Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
- B) @3 [7 q0 ~8 V; t6 u& d& D" l$ H- _1 q If m>1 then --第二条线要计算产出率$ ~( L( U3 \ s7 }) H9 A2 m
Name:=Sprint("OutPut_Line",m); --产出率. V0 V% F- r5 \' W
Obj :=str_to_obj(Name); --转换成对象变量
1 H D# W1 R/ t0 e& t Obj.val := n*100/OutPut_Line1; --计算产出率( J" s$ G- G+ Q$ i, w
end;4 u1 j8 C8 H0 U Y
/ u5 u; M. R$ U3 g0 E! ?- ?. `经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,: q0 y X1 I# F4 ^; z% e) e
例如Obj := str_to_obj(“coat”);
. q) z( X1 X, A9 @7 L% ^! d+ p" R; e |