本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 " `$ P- X8 P" C% f- ^7 [$ W" ]
: Y5 Z, C# f9 Y) K( `0 q6 c4 ^2 U) k
各位老师好!
) O! a3 p" o% X- f; O1 i: M 我在使用plant simulation时出现错误
y8 o) P" V9 g源码如下
1 Y N% {4 p& i! P
2 `$ f0 c6 F# @# L6 _ A4 Jvar m,n :integer;
8 t, D& S9 ~1 ~6 c @ G' D" Ovar Name :string;- V3 }6 [ ~. V# [7 C. M6 X* ]. b. w
var Obj :object;
3 E% a$ H# Z0 b2 R1 D. k [& V7 m1 v7 x$ w
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;/ \1 M5 i( G Q) n" C3 W
Name := sprint ("OutPut_Line",m); --生产线名称3 v5 ]1 h* `: H/ \
Obj := str_to_obj(Name); --转换成对象变量
/ y6 _' ~# [; N' ?: V Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
5 f9 v7 X$ o) K2 Q1 [: M If m>1 then --第二条线要计算产出率0 e- P0 i# q. P
Name:=Sprint("OutPut_Line",m); --产出率+ G$ m3 I9 v3 c2 j8 s, b6 i; m8 [8 b1 P
Obj :=str_to_obj(Name); --转换成对象变量
1 S% c, O6 O/ J' b8 [/ L: ^0 K Obj.val := n*100/OutPut_Line1; --计算产出率% N: [3 {! ?0 [+ l
end;1 O4 a- l: \ z5 W1 @ a: f4 ^* ^
) d: T; y& R2 b- s6 n经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
6 }5 r2 O" g/ q* c" O; A例如Obj := str_to_obj(“coat”);
& Y% ~9 j* J7 y( F ^% d |