本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ! X0 k" ]3 z/ U1 V0 I
. s }+ S: G& x$ O2 c1 ~各位老师好!
3 F( a1 g1 v/ b. i" ?2 {6 S Y 我在使用plant simulation时出现错误
( |4 g. n( Y3 j/ l9 @* J0 S6 c! |( G源码如下8 T2 d5 i& w* _7 j( i7 f
7 q- t+ [7 ]1 g0 ~' K# N* o
var m,n :integer;
2 h1 j A) Z$ M* k! Jvar Name :string;
: l5 n: e$ \, r2 tvar Obj :object;, K/ O+ y6 \7 N! j# g) B# C; Z
3 q( `8 O7 N' B m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;1 I+ n! u+ E1 [; Z+ {, n: x
Name := sprint ("OutPut_Line",m); --生产线名称
+ F& ]# l7 X+ |; t4 G5 k1 y/ i, q Obj := str_to_obj(Name); --转换成对象变量) i1 d3 E+ d' E4 i$ v
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
8 l( }" o( a" a9 u1 T If m>1 then --第二条线要计算产出率8 `: x& I# h$ \/ n5 g7 P1 R
Name:=Sprint("OutPut_Line",m); --产出率
- P8 X5 [; S) M$ N# K8 h6 h9 s: x; X Obj :=str_to_obj(Name); --转换成对象变量
2 c6 M8 t' _; {$ ^8 b Obj.val := n*100/OutPut_Line1; --计算产出率
3 M9 l' m8 t0 S) ?( n" u end;2 t W% D8 v- T" M/ t
& Q, f" y, a4 D3 \" U8 U" L经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
9 n3 k. h8 [+ c# }+ X5 M2 P例如Obj := str_to_obj(“coat”); , m6 C9 y5 W& K9 a" j
|