本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! t8 i" `" H$ T) x; q# a
/ i( y4 K1 Y5 {7 O4 J/ n3 A各位老师好!6 e! ^" h, w1 [. ?# x' x6 f& ]
我在使用plant simulation时出现错误9 w s, T: `6 b- v8 l' ]
源码如下
0 @4 A& e: Z+ C+ \6 @# x
# V2 T7 {& o5 C4 t4 ?var m,n :integer;2 H0 y0 n" C% _5 P; P8 z$ Q4 `
var Name :string;7 B1 q( [, W7 r) s8 u4 i9 V6 j: m
var Obj :object;. p6 G* a x2 S" V6 {/ K {
2 g; _# N1 M5 ^* B3 p w- I
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;$ a: m* b O5 T
Name := sprint ("OutPut_Line",m); --生产线名称
' |+ q# Y1 ~8 J. [ Obj := str_to_obj(Name); --转换成对象变量% X( i1 t6 B$ B% u
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法+ y' W: Z, [# Y: f! b) R, N; p
If m>1 then --第二条线要计算产出率7 n9 R4 m9 X& o1 ^- j
Name:=Sprint("OutPut_Line",m); --产出率$ q2 M, T/ ~% d
Obj :=str_to_obj(Name); --转换成对象变量
5 F% \, u$ Y, r3 T" S, w; _, p Obj.val := n*100/OutPut_Line1; --计算产出率
' ~4 w0 `* x6 k; i1 i5 z, r. \ end;' v- S- c7 o/ X' K; V2 N( _
0 V6 E, _- b" G* [8 B经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
2 N# Z _4 n# j% `; G例如Obj := str_to_obj(“coat”);
, V/ x, W) I$ I. r6 u! r7 e, Q |