本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
7 N$ |1 }0 |1 x6 W% ], F; Y; Y6 E* ~8 {' \, p
各位老师好!0 x9 N, K3 ]5 I* D
我在使用plant simulation时出现错误$ A. z+ W- n$ T: ?
源码如下
: q5 s3 K& T8 C/ W- T! ^9 p3 R1 [0 \# V9 ` M
var m,n :integer;5 L3 T7 a7 q7 @, @1 b$ Z
var Name :string;
" l% {& q+ m+ q( Evar Obj :object;; n, q8 X x! n( h% ]
* a8 |- b- F6 C4 y
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
1 b7 z* j) \1 q1 a: U4 S' H, E Name := sprint ("OutPut_Line",m); --生产线名称$ L$ t! i" ~" Q' O
Obj := str_to_obj(Name); --转换成对象变量" P6 V8 j8 @& \+ t9 w
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法3 T* r, W$ E9 a7 A, S! e/ m
If m>1 then --第二条线要计算产出率& P2 w8 \% y' K. Q5 s2 F: `
Name:=Sprint("OutPut_Line",m); --产出率. a4 H3 @# c1 u
Obj :=str_to_obj(Name); --转换成对象变量
- c/ j2 C7 h' I8 _1 m# }7 G Obj.val := n*100/OutPut_Line1; --计算产出率6 m3 \* C4 {& Q# h6 F9 N
end;; e5 @+ o6 k* S
h2 _$ B& k$ F0 l5 q经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
# ]7 ?; U3 w. M' O! u例如Obj := str_to_obj(“coat”); 3 w8 g" f+ @$ {" s
|