本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 & _! h8 E! Q5 F a& p
5 x: p& O6 X- b# F" z* P各位老师好!
! b0 K! K" A* T1 I% C1 s& l5 `% ] 我在使用plant simulation时出现错误
! f; c0 e/ `9 Q- r8 N源码如下
* _7 Z! B$ c7 | \/ {- y- K8 D0 g9 J
var m,n :integer;8 |2 N# ]) E) i$ _; j
var Name :string;
; C+ N: e6 v0 y- d. W. H2 @, b6 gvar Obj :object;
; W; n* I6 h* z$ r" w+ V4 j% M6 g
+ w& D. ~+ Q9 Q5 C/ q m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
0 \- M2 P8 F, q. r" m" c Name := sprint ("OutPut_Line",m); --生产线名称: ]7 @+ l) o: K0 d2 M& h( R( b4 C
Obj := str_to_obj(Name); --转换成对象变量
3 b% P% V& q6 Q- l2 ] Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法$ O* E- g6 c) m$ E4 d. D
If m>1 then --第二条线要计算产出率
8 v: H4 w4 ?. M- ~& L% v* a Name:=Sprint("OutPut_Line",m); --产出率
/ e$ j- u* H8 i& g3 g6 j$ G, f Obj :=str_to_obj(Name); --转换成对象变量2 `1 L7 @' T- i5 e! B% r) L9 V: I) n
Obj.val := n*100/OutPut_Line1; --计算产出率
) n% C6 \# x0 I6 \2 Q4 ^& w end;
- C8 U0 H- I# J( }) v' Z9 @
& V0 c. c4 p' _7 Z经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
! D, I5 P2 ?5 A* n& g5 F例如Obj := str_to_obj(“coat”); # |8 M* e. B/ Y; J* G
|