本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
+ e6 V% T' M( F" d G6 ^8 l4 W0 n& g! j! \( ^
各位老师好!& C4 _! j5 L" ^* h
我在使用plant simulation时出现错误2 P( }5 e: B. ^2 p7 j
源码如下4 g7 V! v7 H6 E: Y: d" c8 }
: p& n& N. j( o( Nvar m,n :integer;
; p5 Q; u& K; U5 D5 }. @. g, e6 ovar Name :string;2 i3 Y8 `- ^; @6 l) w* y' Y: s
var Obj :object;, k4 G$ |" _, L7 p0 m0 r& Z3 M9 D
. _; M5 Y0 r. S! \( }! g# B m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
l# s4 }% E9 T Name := sprint ("OutPut_Line",m); --生产线名称
4 F) s9 G6 s* D! ^ Obj := str_to_obj(Name); --转换成对象变量5 O" F* W% d$ ]& x/ o$ M
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
1 @0 B+ d; C1 e- n x( F0 H2 o If m>1 then --第二条线要计算产出率
' [# ?( N6 N9 M" }. ~4 A Name:=Sprint("OutPut_Line",m); --产出率# N- I) j8 c' I* G3 [
Obj :=str_to_obj(Name); --转换成对象变量
" |, H, ?, B0 b2 \ Obj.val := n*100/OutPut_Line1; --计算产出率9 e( K7 x. d- ]! _' B( R0 O, p, P4 d
end;$ ]# G+ P5 W7 l% R' _: L+ ~* |
8 D }2 h) b( E1 l8 x; D经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,( q- b) ]" Q: D% }- |3 p
例如Obj := str_to_obj(“coat”); 1 u @$ J* h8 Y* B7 R3 P- Y
|