本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
6 O& r# o! p9 W6 f- s2 R# L4 `6 n3 s2 Z
各位老师好!$ A1 k! o) {5 s6 W( ^! f
我在使用plant simulation时出现错误. i) Y& s% y- B* f0 Q) n
源码如下. X0 l5 Z- o) l$ w7 A0 Q g3 ^
2 n( X. s5 c% D, u- W& h/ a# \2 T' T
var m,n :integer;
' `3 {+ s' w7 M2 x: ?var Name :string; i) m t9 V% {* F. ?% f0 k% S* W
var Obj :object;% F2 E F4 q# W7 J" f' W8 X
" k) T) D i* p3 E7 o+ W m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;7 R0 z% x! k; Y* o3 p: o+ F. d
Name := sprint ("OutPut_Line",m); --生产线名称
5 V g {3 I: z7 r$ S3 C Obj := str_to_obj(Name); --转换成对象变量
: @) x. J: J2 U- \: b Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
4 o8 M1 M- g! n' | If m>1 then --第二条线要计算产出率- k" q0 v0 R: g8 ?1 G
Name:=Sprint("OutPut_Line",m); --产出率: u" ]+ r, Z- b/ Q0 ?1 X" o- `
Obj :=str_to_obj(Name); --转换成对象变量
5 e/ H+ b% u T Obj.val := n*100/OutPut_Line1; --计算产出率
. {& v9 u. }# z g; b6 M end;
/ |' o( m1 Y1 p8 U3 P
* l7 t# ^2 F: H经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,1 F$ x* t7 @& Z/ M
例如Obj := str_to_obj(“coat”); 3 k8 ~0 H d) K# {" y- w
|