本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
: E/ a* Y. L! _6 r( ]
! Z6 Y+ |; @& x) W各位老师好!
/ j: Y; |- G# O: X" f9 u: ? 我在使用plant simulation时出现错误' [$ G- i/ D+ o1 i4 s0 O$ V
源码如下0 ?) k0 f+ [# F$ W! T
- u" R) f8 ^4 e1 v3 K; jvar m,n :integer;- a: H' M0 Y& _; J+ m
var Name :string;
: X1 S; h0 k5 Pvar Obj :object;
) {' X$ s# |5 L3 Z6 [9 s3 h- _5 F' K9 b$ W' q
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
; ]7 \9 F6 r' E6 i. s6 | Name := sprint ("OutPut_Line",m); --生产线名称$ ^4 P) {7 d/ ^0 D: @
Obj := str_to_obj(Name); --转换成对象变量/ s6 z% z% s' T" ]+ O3 d+ @) o; K
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
, B7 l7 O( g2 w0 o If m>1 then --第二条线要计算产出率
, f% Q! \; H; ?7 D. S7 H5 Q0 k Name:=Sprint("OutPut_Line",m); --产出率
0 d& O3 w' [4 g Obj :=str_to_obj(Name); --转换成对象变量1 u+ e5 e/ |7 o& f& Q
Obj.val := n*100/OutPut_Line1; --计算产出率
+ M: W4 d6 x! x4 O" P0 w end;4 T6 {& o2 `: Y) ^) k
% ?5 F$ c2 {2 v& K8 z9 e+ g
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,! Y4 w! X6 [7 K6 Q
例如Obj := str_to_obj(“coat”);
, f* G; v9 f9 K D5 u% ^: _ |