本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 8 ^& G) z4 z2 @' @! |
) S/ k/ _5 ? t3 q3 l' J- Z
各位老师好!. B3 [ R" M8 g4 f* r$ n
我在使用plant simulation时出现错误3 t& J4 T5 }8 s: G" i7 v% n
源码如下
( t* f D2 H: \! a; z/ d1 Z5 A3 V; ~: c1 Q; \
var m,n :integer;
& A3 W; q# v9 l" i$ e' M4 nvar Name :string;
# T8 m! @8 y2 [( g1 t5 U0 jvar Obj :object;
" }4 R' ?* E$ O4 _# e1 K
/ L$ Z# z% ]# H* `+ F' { m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
' t5 {. y W4 k3 `/ t/ ~9 ~ Name := sprint ("OutPut_Line",m); --生产线名称8 Y5 ?. |: R/ H0 d+ t3 P
Obj := str_to_obj(Name); --转换成对象变量
2 f% Q" n S F$ ]+ n2 _9 X4 ~" h1 L Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法 R' K) a4 L Q- H
If m>1 then --第二条线要计算产出率
+ o# g: y. ^8 D/ q, a& R7 j! M Name:=Sprint("OutPut_Line",m); --产出率
/ W' [4 s- R7 ] Obj :=str_to_obj(Name); --转换成对象变量1 f+ Q! {) c' X% ^
Obj.val := n*100/OutPut_Line1; --计算产出率5 M1 n9 n$ l) b& F4 `, o: N
end;
1 F# z1 a- B5 Y9 m1 q* b+ y7 ~
2 l7 K0 a* X. B8 b3 w% d4 V9 Z e经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,. a: w/ N$ m& i- @5 b6 ~
例如Obj := str_to_obj(“coat”); E& t$ {* D' j, d
|