本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
6 W% C3 U. j5 H( }3 y! ^ Z9 S* v* L$ i _' G' A7 w/ ^5 _
各位老师好!
; f* c$ b( {. V V' G) A' r# A# {" P 我在使用plant simulation时出现错误
' p9 C( c) l& i9 `, N' M源码如下
+ W* L/ j$ Q* Y; C4 ?5 u
& n/ O9 g2 t- y! J# k) mvar m,n :integer;
8 ?" w; ?7 _1 l; j9 T# bvar Name :string;& M" Q$ {7 O9 g9 p( C) y9 A
var Obj :object;" I! @8 a3 V9 l& G* d: u; e
0 Q9 G) S# H' K3 ^) L8 s m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
+ d) ]7 }; r; @. W4 n+ c5 }% J& ~ C Name := sprint ("OutPut_Line",m); --生产线名称
2 l; s" ]: y# V# h; _! S Obj := str_to_obj(Name); --转换成对象变量* q0 z; s7 H6 Z4 X, e9 r2 K
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
( U; A5 ?/ l. L2 B- V If m>1 then --第二条线要计算产出率
# ^+ G# |; B1 X, B4 D Name:=Sprint("OutPut_Line",m); --产出率% A7 D& |# m j# \. Q. Y
Obj :=str_to_obj(Name); --转换成对象变量
2 ?1 V/ e/ F/ o J* I Obj.val := n*100/OutPut_Line1; --计算产出率$ y* v; N" M9 k5 E$ [ x: z3 E
end;
`+ I( h! w/ c A/ l) e, |2 ^) D0 a! P- G
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行," E& \, h0 j* F% g
例如Obj := str_to_obj(“coat”);
9 ^& J+ y5 |) Z0 K8 H3 m |