本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
0 D. m. r. n) y; v
- R; E3 i6 c: ~7 |3 t- j+ V" r各位老师好!/ q) U1 `- U* L% L% o" t$ K
我在使用plant simulation时出现错误
: {; y( `6 f+ d7 H/ i. k$ |源码如下; W; \9 y2 f/ T) P
- W* W/ J) D* ?* M$ I0 E0 T
var m,n :integer;
9 z; v3 J6 z! U5 V% N4 Rvar Name :string;% {' o: n7 d8 j
var Obj :object;4 G8 I( }4 |$ h! ^0 i
& O7 z- D/ M" U1 R6 s% g8 v" f3 p m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;4 x8 V9 Y% G6 c5 t( H- Q }
Name := sprint ("OutPut_Line",m); --生产线名称
) Z8 K% k$ B- X. @5 d { Obj := str_to_obj(Name); --转换成对象变量1 j0 |' p0 B0 y' D4 m, _
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
6 A5 s* f4 k- X0 y0 }) | x If m>1 then --第二条线要计算产出率
5 c1 S' h0 Z" P% U u Name:=Sprint("OutPut_Line",m); --产出率9 W5 K* ]7 d& k$ Z
Obj :=str_to_obj(Name); --转换成对象变量
( F) L( |8 ^+ r8 W Obj.val := n*100/OutPut_Line1; --计算产出率( O% e& A5 N' D, `+ E
end;: P, n% A+ S& p" G
: I, g* ?5 H& `6 j' I
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
9 m) w" b& Q) d3 C# U3 D$ K) P例如Obj := str_to_obj(“coat”);
* I) m9 A- J1 v7 P" ^/ c |