本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 - |% h9 h9 T! D
+ ^5 y" o% b# ~$ W* a. O! l' C各位老师好!( u' c" q- H9 f! R$ }& N! X- x
我在使用plant simulation时出现错误# ]4 m9 l5 d2 M' d6 g' `0 S1 S @
源码如下4 K" }/ ]; E! }0 q
; T" u3 M8 q5 K/ {7 X
var m,n :integer;
9 H, S2 |! O! d( m ~9 i* H2 rvar Name :string;% c' h4 C9 x; h: d1 u0 V# }
var Obj :object;. b4 w! d& \3 U3 ^6 {
0 ~0 z& `; S1 a- N b0 A: z7 g' C m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
) a1 G4 K) O R2 s Name := sprint ("OutPut_Line",m); --生产线名称4 [2 ^8 F j/ j& r$ z2 B0 K) T
Obj := str_to_obj(Name); --转换成对象变量
/ k _. q; x& V0 Y. v) V: s Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
4 {% J, ^0 P! @5 l' D0 c% S; u If m>1 then --第二条线要计算产出率
% O7 O5 o! b! i" f8 c$ T Name:=Sprint("OutPut_Line",m); --产出率; v5 Q! k* d8 Q' h) \# o
Obj :=str_to_obj(Name); --转换成对象变量
9 ~3 E1 P d4 z3 @! c+ Z2 N+ n Obj.val := n*100/OutPut_Line1; --计算产出率& k0 f' Y0 f8 l- a9 g
end;
( M, E7 |. t+ V# C3 S6 C( |. y! U0 `3 V6 i# Z
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
, _. r: I+ U8 o7 ]例如Obj := str_to_obj(“coat”);
% h( u" P( w$ P& @+ ?0 `1 g' C |