本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
- P8 P# q; Z4 Y+ e! Y4 ?
9 g) ~, s9 ?8 g) j7 I各位老师好!/ _: T8 j9 g! d `) h. C4 H( m3 d/ ]
我在使用plant simulation时出现错误
) X5 T+ ]6 M: ~源码如下! e8 C+ {# Q6 U. U2 G3 j0 t5 Z
a* P3 I3 S+ r1 x) a0 h' H& Jvar m,n :integer;- `) k! d0 H+ d# u8 w- A
var Name :string;: U2 \' h# j+ D, a) r2 [/ }8 |
var Obj :object;
$ L7 \; r) l$ E V! p
+ P1 @# l6 W2 k; E% G# A$ d! O% d m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
" H- M2 R1 r1 _- D C Name := sprint ("OutPut_Line",m); --生产线名称
[0 o! F0 n! Y3 [3 J+ Z Obj := str_to_obj(Name); --转换成对象变量
' B$ T7 z/ d2 T8 W8 u' b* A Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
" l$ L4 H7 _7 X/ ^9 B4 O5 p- o0 B' u If m>1 then --第二条线要计算产出率4 y r% Y9 K, ]5 P, \& k
Name:=Sprint("OutPut_Line",m); --产出率
4 E5 V a4 q8 `3 e3 A/ E* U/ }, q* r Obj :=str_to_obj(Name); --转换成对象变量$ T1 M8 B0 w$ Z- Z' ?+ r4 n' t8 e' W) o
Obj.val := n*100/OutPut_Line1; --计算产出率
3 m! P% a- [# I; \+ _0 K end;4 E( O' x' h5 W/ z. D9 K2 m: C
& U! s% d& X. C5 `! L
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,1 Q% a# Y9 Z" J
例如Obj := str_to_obj(“coat”);
1 `2 B2 n5 Q6 d2 _% z |