本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 * \" x2 w9 I8 j- G
; Q8 A6 Z- e- q( S0 e* d/ s各位老师好!( W2 T$ B4 t6 o% U4 q& M
我在使用plant simulation时出现错误+ z$ B. R9 b1 D! i
源码如下
$ y; A0 w( F7 E5 P8 W! h7 w A( W2 y ~" d( ?7 i0 p& Q
var m,n :integer;
# f2 p* D6 I* [+ @8 s0 f. Yvar Name :string;: ?* d1 O0 G. o6 _8 V: R
var Obj :object;- z3 \( D* l, ] r( l# l( W
6 z% O' L' v# Y/ K5 Q+ C: g, h m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
2 S' W7 D2 k( i ~; \ Name := sprint ("OutPut_Line",m); --生产线名称
; X, Z1 w7 v+ }. Z1 f8 ` Obj := str_to_obj(Name); --转换成对象变量
5 p8 \! h# k/ ?6 n* h% U3 V Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
* [$ l" c k* @ If m>1 then --第二条线要计算产出率
* K) V2 R, r( K8 [7 b/ }) O Name:=Sprint("OutPut_Line",m); --产出率! I9 B' s% p8 d: j* C6 ^( p
Obj :=str_to_obj(Name); --转换成对象变量
, C) @2 u& b5 p+ Q2 a! z* [ Obj.val := n*100/OutPut_Line1; --计算产出率9 s) u5 ~* v w9 |
end;
# _2 L, t1 T. g& n$ J% J S C/ Y6 s8 R% d3 Q2 y
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
$ l" t+ F. P+ \8 K- `例如Obj := str_to_obj(“coat”); 5 j2 O( l" v5 v0 n' H3 D
|