本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 2 c( h: y* W' o/ ]8 ^3 _
. x4 I7 W3 H" _1 l; q' k6 ^各位老师好!
6 k* i9 L9 I% m: Y# c3 }/ @/ A: Y. o4 z4 k 我在使用plant simulation时出现错误9 ]- q7 ]8 x# C0 N$ \ D7 W/ w
源码如下# e6 Z( C5 s1 c6 |! Y
6 O) {6 P+ @1 ] f; Z+ nvar m,n :integer;
6 f9 H& K3 X8 W( ]% gvar Name :string;
2 A/ o7 M) ~" R. S' x, F. wvar Obj :object;
. }& F- D9 R' I* {0 Z
( g, ~4 n9 n" f9 A5 @4 D( h% y m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;8 {0 g7 h+ y& ?+ {& G5 J% e8 [
Name := sprint ("OutPut_Line",m); --生产线名称
9 E; f( i( |: `/ { Obj := str_to_obj(Name); --转换成对象变量2 U) `# V! G, U: ?
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法/ R/ c" l& `+ m' Y9 h' f6 ?2 P( I8 V
If m>1 then --第二条线要计算产出率
( b. x ?9 r0 f# W* ? Name:=Sprint("OutPut_Line",m); --产出率
9 O9 ?2 G4 B- a2 G Obj :=str_to_obj(Name); --转换成对象变量
5 C( G+ I! [. \0 @; [ Obj.val := n*100/OutPut_Line1; --计算产出率' I- @9 H3 t9 ]
end;
4 {3 r& {* u- p, r
! v. v) f' D7 w6 N9 h1 C3 @: e* A) |经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行," W! ~% p3 O4 S& u% c
例如Obj := str_to_obj(“coat”);
/ ]; z2 b' g3 ~; z2 i8 }$ ?0 T$ _ |