本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
, j: I1 ~+ _" J9 `6 g) Q% B4 V, r5 ?6 L7 h& K
各位老师好!
, P4 r4 u6 a2 e' `$ _5 B 我在使用plant simulation时出现错误 D3 } m0 l9 z4 @ |2 X
源码如下4 x" }1 ~" }; q5 u$ t( x) _8 w/ R
: _2 s/ m# y/ I7 bvar m,n :integer;
h7 W! J0 @1 L% n' cvar Name :string;
' g, _7 M" y) mvar Obj :object;
' K3 H5 ~! x( A0 b- e
5 \4 C8 b+ }( J! J& r5 }) ` m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;. g/ U# Z3 D: s4 d3 m
Name := sprint ("OutPut_Line",m); --生产线名称
- f. C7 H! u4 k2 p0 a Obj := str_to_obj(Name); --转换成对象变量$ |( {# |! X; {% q
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
. p; U! K$ j8 e, { If m>1 then --第二条线要计算产出率& B4 q! W$ B0 x) F1 Q
Name:=Sprint("OutPut_Line",m); --产出率
# i9 g5 W( R4 F0 ?+ L Obj :=str_to_obj(Name); --转换成对象变量5 j; C( U+ e0 K5 F! O% U
Obj.val := n*100/OutPut_Line1; --计算产出率
' R2 i1 E, R% B0 F8 c. e4 H. _# [5 m end;
/ Q" {" b* J6 @* G6 u: c! s, e) a+ n0 F" N) b5 v
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
3 {1 t6 I2 ^: ]6 Y/ d* f: Q例如Obj := str_to_obj(“coat”); ' W5 p4 d8 v' m5 o0 M3 T F9 l% |
|