本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 $ j. l- |; ]/ }6 t9 L% H3 R: Z
8 G; w# a+ C4 u! O$ [ c各位老师好!
! I& @' \2 Y* H% P' g 我在使用plant simulation时出现错误) S: U4 I ~6 R. c' `8 `' {& v
源码如下
! s3 P j0 n- K- f4 c( t1 @
1 s/ ~: \9 u* m2 k g) E+ Avar m,n :integer;
. c# w! L/ g4 s2 i `! J- \var Name :string;+ k% E/ Q1 O6 \+ }
var Obj :object;
0 }; n& |8 }$ S5 K/ c* [6 ?# l. {; ]* a Q- ^
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;/ D/ |" O6 ?2 W
Name := sprint ("OutPut_Line",m); --生产线名称
1 @( F& W8 D: H, j; [0 [" Q1 }- \ Obj := str_to_obj(Name); --转换成对象变量
U/ ]" \3 [6 y& T" H7 \& s9 J Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法+ e6 J1 z0 N0 ~
If m>1 then --第二条线要计算产出率
" J6 R) M/ f1 Y, `7 ]3 G Name:=Sprint("OutPut_Line",m); --产出率! _. a0 z) ~" K
Obj :=str_to_obj(Name); --转换成对象变量3 `2 @4 M0 ~. u0 h+ T
Obj.val := n*100/OutPut_Line1; --计算产出率" x6 o+ w/ t% @' z) @- M: h9 Q$ C
end;! @$ N1 i$ { @$ @2 f# o- y4 o
7 V. ^5 W& V" ?- g- |; E
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
. T1 A/ _6 ` q8 _5 }* o/ [例如Obj := str_to_obj(“coat”);
, |" {" i. t8 w* D/ r& y' n* D |