本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! y% g4 ?/ c% z- E" D
0 g( J) \0 O2 U o6 h3 {& k9 _各位老师好!
" t; @* u* G+ f; \8 X u6 Y 我在使用plant simulation时出现错误% p/ Z8 U3 o! D6 h4 B
源码如下
( L0 u5 c+ d4 j$ t
5 b& e/ j% K4 y. i3 _! F1 x6 F( Nvar m,n :integer;
& Y! q X5 j% J. tvar Name :string;
# g: X+ E/ R4 E) U* Yvar Obj :object;
+ N0 ]4 S+ j+ D2 a4 O3 O9 p. }( N/ ?
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;# @3 w( C# i, [2 F/ v3 L h# t6 O
Name := sprint ("OutPut_Line",m); --生产线名称' j, E. K3 h) g
Obj := str_to_obj(Name); --转换成对象变量
# m$ e/ V2 V" n2 l& H. V! h Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
& S6 w1 P3 S, _ l# ?/ z+ g If m>1 then --第二条线要计算产出率
$ p3 `) k' X! h6 | Name:=Sprint("OutPut_Line",m); --产出率
7 t6 \$ u1 R% _) K3 ] Obj :=str_to_obj(Name); --转换成对象变量: Y5 k B1 q' w$ H, R% ]. [! ~
Obj.val := n*100/OutPut_Line1; --计算产出率
+ y5 d, `" L8 n4 A% k end;: o# e3 i$ s* @ j0 V
6 X4 D5 a8 x& m. k$ b- _$ W
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,+ P) r' `3 ?8 ` F6 X" r% _
例如Obj := str_to_obj(“coat”);
* Z7 A: c' n4 B2 I |