本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
$ v6 `1 }& _& f8 u( O0 ]3 C
& @! x4 ]' B& p3 G) ^9 n7 K: p各位老师好!
2 Y' R7 K" A# j. u 我在使用plant simulation时出现错误
& ?4 g& S1 Q5 l. c- O' G0 a源码如下* \/ |- z+ q+ v' c: K
- k! b* R) q% F& ^: T" U( E
var m,n :integer;
1 ^, v2 t" M5 J8 X, _: N* Pvar Name :string;* N( t/ u, x7 n; j( M* _, G$ {
var Obj :object;2 q# W/ T# l/ z! V9 B
5 _- R# _$ Z- l4 [& b6 K7 ~6 i
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
9 ]3 e7 Q; Z( e Name := sprint ("OutPut_Line",m); --生产线名称+ d W2 q: x2 F; B6 V/ F+ E
Obj := str_to_obj(Name); --转换成对象变量
( r4 i9 ?! P0 f9 R% b, X Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法* U) f, e3 {7 L% K( Q4 {! _
If m>1 then --第二条线要计算产出率/ d* G* [" g' h) F; d. C
Name:=Sprint("OutPut_Line",m); --产出率
; f. a* o. u5 E, \ Obj :=str_to_obj(Name); --转换成对象变量
& J3 a9 O t/ u$ u o Obj.val := n*100/OutPut_Line1; --计算产出率) [. [: J) o+ A" a6 t1 U
end;
1 e) z" M6 ]+ g) q7 Y4 _( V" t- @; [7 ^0 ~4 ~
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
: w" d2 A6 m6 G例如Obj := str_to_obj(“coat”);
- J4 Y2 m5 s X) K" Q+ r& b( s. B |