本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 2 `2 e. z. K R" i2 N
) l; _8 i; J3 p8 I4 r6 a3 T各位老师好!
3 S* |. \/ O4 n2 ~1 s* T 我在使用plant simulation时出现错误
9 p2 a% G5 J% @( ?6 a源码如下3 F& l: N4 |+ M3 x
7 j* M1 j7 t r7 ]" |/ w. T2 T3 qvar m,n :integer;
5 h2 Q0 W: @, a) Wvar Name :string;& F* O+ Z, r' b$ ]6 x
var Obj :object;
8 |- w1 k: s$ G; x' ?5 D" W ^, ]. a+ G' I V8 N
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;/ j( Q' o! b* {6 f5 g8 C) g
Name := sprint ("OutPut_Line",m); --生产线名称
) j" S* H0 A7 l: H6 Q' q. P Obj := str_to_obj(Name); --转换成对象变量
R5 g6 I" L, V1 f Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
s+ l' Q5 u; f& q& ]3 Y+ W If m>1 then --第二条线要计算产出率, ~( I. O2 E# q; w3 E* _
Name:=Sprint("OutPut_Line",m); --产出率
0 ]% j4 E) b/ ?1 G1 F# } Obj :=str_to_obj(Name); --转换成对象变量
( `2 t- y) d @) Q: q Obj.val := n*100/OutPut_Line1; --计算产出率: |$ z: A! _% V3 u8 t3 L
end;
0 ]1 m( b2 N: `$ F2 r
. x* p0 r* Q) l经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
4 \( C) x9 Y" K例如Obj := str_to_obj(“coat”);
3 ?7 n4 r( T& Z A' | |