本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
5 N; X; e4 A- A' v' i: K. J( l2 u; t5 K5 g! u% o; m
各位老师好!
0 \1 S+ t" z7 _, n. e 我在使用plant simulation时出现错误
' _3 |0 U5 B# o源码如下
, I0 C$ K2 F5 j" Y6 T
6 E% k& o! c D* L2 N9 N$ f( P( j( Svar m,n :integer;. q) T8 [, r, W" b
var Name :string;
4 q3 }% ~* L2 d( Kvar Obj :object;
0 m0 o, y, O5 ~8 P7 C. K
1 U" ~$ J; }8 w7 F5 K5 z4 ~ m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
' u" ~; r$ K4 ~# R0 A- N! m% t Name := sprint ("OutPut_Line",m); --生产线名称
9 P4 E& u$ \5 V* Q+ Z6 U$ a$ q Obj := str_to_obj(Name); --转换成对象变量
3 G4 L( U; I# C/ H/ d9 } x Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
& D6 G+ P' X/ v$ S- u If m>1 then --第二条线要计算产出率
+ u( \8 a2 o+ N4 j1 n4 n Name:=Sprint("OutPut_Line",m); --产出率
$ T- Q3 ~; f6 Z2 Y9 C% u- { Obj :=str_to_obj(Name); --转换成对象变量
4 Q) \( G$ R/ ?. [9 ~ Obj.val := n*100/OutPut_Line1; --计算产出率
& ^$ Y% \9 h' C* V% g: |: C end;
/ V/ ]7 e2 W0 f/ D) S
0 o0 s' R7 a4 G6 Z& \( z; \) P1 S经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
7 e1 ]; X) o9 s: Q9 y' S, V; A例如Obj := str_to_obj(“coat”);
, g' q M. S+ u2 ? |