本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
' [. B9 y! j! U' {$ ?; W3 G
; h# _: _" ]1 r. {各位老师好!
) Q6 S- S7 {: g, w; j3 } 我在使用plant simulation时出现错误6 y* l' G e8 Z {. r
源码如下
' G; V8 b E" v( N, V' ^2 E1 E/ W8 v; X8 r8 E
var m,n :integer;
K2 p" f: Z8 ~) p V) B9 |5 [var Name :string;
; a) h- H/ H0 ]) Zvar Obj :object;
5 \5 S, D& @) U' n2 Z: h9 B9 F4 d; P' @3 q7 l
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
# K& E; C" J& N Name := sprint ("OutPut_Line",m); --生产线名称
* m+ H6 Z) N( h1 v Obj := str_to_obj(Name); --转换成对象变量 p/ N( P0 t" H N3 q
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法4 x0 r4 |8 ?) K
If m>1 then --第二条线要计算产出率 f6 o) n }+ |4 A- F/ v
Name:=Sprint("OutPut_Line",m); --产出率
5 f( o3 `8 X5 `7 `' e y9 L Obj :=str_to_obj(Name); --转换成对象变量
! y" K; d+ n/ [+ _; x* b Obj.val := n*100/OutPut_Line1; --计算产出率& G$ Q- }0 Y6 S8 U3 N5 r1 L
end;
$ O7 ?& t7 _0 s6 t
: m8 y7 }$ A: `+ s' L经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,1 r5 T6 s0 d0 ^& G5 c8 ^
例如Obj := str_to_obj(“coat”);
& R' C: o F0 K$ F3 b6 r& R |