本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 0 d7 M* n w( _8 K: n7 q1 A
% M& ?; O) x: s1 i( k2 q6 i+ U. D各位老师好!
# m4 p9 k q, }! c% T# B* a8 [ 我在使用plant simulation时出现错误
5 q# ~9 W( _, l6 w5 V9 N5 l* e源码如下
[6 U/ p4 c4 a$ p2 B( x- H- `. g% d. n
var m,n :integer;1 ]6 F% ]; b/ |
var Name :string;- W+ b& O0 k p5 R* c2 ^" C3 p
var Obj :object;5 m! y5 }# E# W z
* u% m9 _& m. f m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
% c ~5 p1 ?5 r* V Name := sprint ("OutPut_Line",m); --生产线名称! N, O5 x2 } {0 U) f
Obj := str_to_obj(Name); --转换成对象变量
, F1 V8 d9 U, C; G4 M) b2 I Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
9 z5 X! m2 ^6 F* g- l" |) }/ A* U If m>1 then --第二条线要计算产出率) l5 B# n5 e9 w% ^
Name:=Sprint("OutPut_Line",m); --产出率4 M" b9 v, `% X0 a6 u+ N
Obj :=str_to_obj(Name); --转换成对象变量
1 K4 S5 N5 o' P! ^9 h# O Obj.val := n*100/OutPut_Line1; --计算产出率
+ D$ T# [# A5 C8 C end;+ ^ g6 }. f& a
- m2 d6 Q6 k6 J) h, h4 B0 T经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,, u" x/ A: |3 m! f' O t
例如Obj := str_to_obj(“coat”); ) F* Z( _! V+ R2 c/ ]
|