本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 . d/ j$ y: [, S/ F
8 T# e/ H3 ^" t. {6 C0 b1 Q各位老师好!
7 M7 y8 a0 @/ E7 m 我在使用plant simulation时出现错误* t- ~6 |7 E: l! ?) U3 |
源码如下0 x8 X5 V$ l# ` C" Z Q8 t
* L) Z5 p# W' [2 d
var m,n :integer;
$ ^9 w& y( y5 Y3 _+ Tvar Name :string;
" S0 ^4 H: O% N# ?3 y! ]var Obj :object;
/ Z/ D$ G; z) j p0 a$ K; H# T0 U3 o; P* h. M
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;8 N' O( U; O. `' u8 D
Name := sprint ("OutPut_Line",m); --生产线名称; X2 X4 s2 {9 ^/ [% o
Obj := str_to_obj(Name); --转换成对象变量
3 Y0 ]' U' U0 U0 O$ a1 { Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法; ~. S4 y9 d8 V% O- l
If m>1 then --第二条线要计算产出率
1 j$ p: G9 Y- |2 v$ @8 ~ Name:=Sprint("OutPut_Line",m); --产出率* t% A" ^+ m0 v; |
Obj :=str_to_obj(Name); --转换成对象变量5 g, Q' w3 B1 S* d" o
Obj.val := n*100/OutPut_Line1; --计算产出率; D4 p' e" j# f U: {
end;; {! b0 W+ W$ ~6 b! y
: }8 e1 ^1 D. K( ~7 u/ S1 M
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,+ J2 o0 e6 }3 |
例如Obj := str_to_obj(“coat”); $ M* u! [! ]% ?
|