本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
6 e# g0 P1 D. s! C% r, O1 A! N( a r
各位老师好!8 `8 T8 J/ S- m. {4 W9 t
我在使用plant simulation时出现错误) b3 |) G6 P1 i _# N/ U" C) H
源码如下
/ d2 E% E$ \8 f4 f0 @
- y: m; C5 ~ O( tvar m,n :integer;+ l& y6 X) E! w3 I7 u k: i
var Name :string;) }9 T2 ?9 Z* p# `2 q) i
var Obj :object;4 e% W/ p! ]' Q! E4 J) k
3 T" {+ ^) g! D8 w6 `. S m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
2 u4 e1 E5 w8 o Name := sprint ("OutPut_Line",m); --生产线名称
1 A3 Z: V3 o& z* {+ C Obj := str_to_obj(Name); --转换成对象变量
" |; y7 _2 n9 L y' i Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
. P! ~! a4 @2 c( r: K; G; ^ q If m>1 then --第二条线要计算产出率2 y8 d# T. r- \5 ~$ E* s* ]; l
Name:=Sprint("OutPut_Line",m); --产出率
0 y( v) @ `7 G% n Obj :=str_to_obj(Name); --转换成对象变量6 ]- q3 {& U4 E8 j8 d0 a# k: _
Obj.val := n*100/OutPut_Line1; --计算产出率
- H' \5 d5 E/ O) P; U- f, s end;# c; i O% e5 {0 k
9 i# i% ~: v6 p8 g$ o' Y经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,; O$ \9 s$ T j
例如Obj := str_to_obj(“coat”);
8 E/ A$ J6 l" H, z3 F0 u7 h& i |