本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
- m R! I( I3 v$ C3 {& _& N7 L- V- Z9 G) ]2 P5 \" w" f
各位老师好!
. o. E: X# j4 e 我在使用plant simulation时出现错误& P8 ^2 C( C/ u% `8 \, n( A
源码如下* s' I/ G* M) v
; P$ u3 }" _! W; B5 |
var m,n :integer;+ l1 ^5 \; x0 w9 g" F
var Name :string;3 M& m/ Y2 v K$ I& d( f6 }
var Obj :object;
" H% J- [8 O% T3 x% D. z7 [9 n7 q ~
) @+ L0 W- e2 l6 H p. D m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
. b* X7 S. M; H! `% } Name := sprint ("OutPut_Line",m); --生产线名称
7 o0 o9 j7 F9 f( X# M8 d$ t Obj := str_to_obj(Name); --转换成对象变量2 l$ g% `/ a. u" L$ V
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
6 S. A- k5 J/ R6 q If m>1 then --第二条线要计算产出率
( c7 n$ R) t! g Name:=Sprint("OutPut_Line",m); --产出率
9 R0 W% a7 Y* U( [ Obj :=str_to_obj(Name); --转换成对象变量# N$ c7 c5 ?: I# ?! N
Obj.val := n*100/OutPut_Line1; --计算产出率7 U6 k) v+ X8 @6 q
end;
; I: x& X: m8 W' d# A
: F9 D6 Y! C0 ?# P经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,/ Y& i& x, u: `$ u% g3 {* y
例如Obj := str_to_obj(“coat”); / T, v+ ]. }; `" S
|