本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 1 g' Z: J9 S" B9 e6 M7 X/ _
4 C' J) u6 d/ \% d0 }& w+ F
各位老师好!
; v/ m" p' U; I 我在使用plant simulation时出现错误3 {1 w" X" e; B2 a# }6 l
源码如下
( e, x0 d- \. H1 m$ e) X& O0 y: ~
5 j' c' R5 w4 w! _7 ?var m,n :integer;
- O- s# X- I8 g2 `: n; s& P. _ Evar Name :string;
5 M* E0 B8 L7 p# i. d4 b* _, z8 e; [var Obj :object;
9 J! v/ k) z+ ^: l3 a3 C1 N8 R( }) Y. q) S3 I# f2 h; U0 x
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;* l! h4 g. Q1 ?* ^" |9 H
Name := sprint ("OutPut_Line",m); --生产线名称/ M: x+ @9 u+ l4 l3 @
Obj := str_to_obj(Name); --转换成对象变量4 ^% c, z9 c$ {' y
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
4 m% @9 Y' `+ J3 @8 t If m>1 then --第二条线要计算产出率
' x( B% X3 N) c Name:=Sprint("OutPut_Line",m); --产出率
& ~$ i, B$ p, m Obj :=str_to_obj(Name); --转换成对象变量
1 c. X$ G4 U# h0 ~3 I Obj.val := n*100/OutPut_Line1; --计算产出率
- N# J5 _& Z" W! B7 P1 ^ end;
5 z! J7 c( Z( X! j# Z& L- C
( R+ @( y6 g# C( [9 h( g+ c经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,1 c% x+ z; G& Z9 ]' N5 J+ E
例如Obj := str_to_obj(“coat”);
9 [# f& R! G& W' h |