本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 3 w0 O$ s2 m" U: A1 ]/ `
3 s2 B/ H1 E* [7 s5 L7 q- B- U8 I
各位老师好!* l- y# d7 y7 I9 j: t) V! h. W
我在使用plant simulation时出现错误. J6 g: a8 G' {1 b$ E ]/ E8 g
源码如下$ M- W" \ @7 v( U" n
' g- ?4 C( u3 {/ ~2 ovar m,n :integer;9 X- q6 c. t7 ~ |
var Name :string;
% K$ U: `/ e3 b D9 b& tvar Obj :object;, T/ F( b5 `3 F `& Z: O. K
) }- N) ^% D. J1 S
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据; y' H" S. L: [/ v, R7 P
Name := sprint ("OutPut_Line",m); --生产线名称; {8 G# s# ~% ^
Obj := str_to_obj(Name); --转换成对象变量. d5 W7 E- Y0 h, [
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法: F, U4 f) s3 |/ ?4 G3 ]. A0 T
If m>1 then --第二条线要计算产出率
/ a* i2 F( }0 c/ D" X Name:=Sprint("OutPut_Line",m); --产出率+ Z' L D: W# m: h9 |7 n
Obj :=str_to_obj(Name); --转换成对象变量! K& p$ I, a$ `7 l6 N' f6 d [: D
Obj.val := n*100/OutPut_Line1; --计算产出率8 R; D- X' r0 u( v" K$ P. d
end;* e! q% @. J1 g& t D! m. M: f
X) L: j/ r. l( Z' d, o5 A# _1 j
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,. B$ O6 j" n2 }2 z
例如Obj := str_to_obj(“coat”);
. O/ [5 j, J* }( K+ m! Z |