本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 * C1 D% E3 L6 ~, ]9 ?
0 P, r* G$ x' o! h各位老师好!
5 C5 w$ q, X7 c. L4 F f 我在使用plant simulation时出现错误
1 h% ~0 j" H9 G6 U- N3 k* V2 \% n/ E源码如下
: j5 }) g2 Z7 _) T- b; l- {* c. [/ j
# G# h. h. U h4 hvar m,n :integer;- W3 p1 x/ I! u7 N) e: | s
var Name :string;
9 e# |/ m8 {# u- U( U$ |8 }var Obj :object;
o/ j, I6 \5 @2 P, I* Y. G( j" w; J! e! O6 w+ r) Y; W. }- Z s
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
5 m6 {$ w- ?$ G9 P+ o6 U0 n7 h* [4 X Name := sprint ("OutPut_Line",m); --生产线名称
! U7 T" S# t. A) D0 M( |. s Obj := str_to_obj(Name); --转换成对象变量
! D( C# P' t3 v) A1 h1 S Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
) H3 J; `1 x2 L If m>1 then --第二条线要计算产出率% ~( C4 T; W N. f
Name:=Sprint("OutPut_Line",m); --产出率4 P% b# T; L& G* Z/ h ~: m R
Obj :=str_to_obj(Name); --转换成对象变量* {5 y; I2 k. H" p
Obj.val := n*100/OutPut_Line1; --计算产出率
; K, k, _! L Q end;) O0 j& W* G, J2 Z! m8 X- R
" L8 w1 ?0 D- P8 X& R经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
, r* V& \5 [3 v& |# |6 I例如Obj := str_to_obj(“coat”); # K3 K" C1 y; Z* u* W$ _* o
|