本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ' @5 {8 A! O2 z
% ?0 E9 p! X& K
各位老师好!. e1 Y) q. u" z5 D
我在使用plant simulation时出现错误
3 Z- D3 ]* C& G/ h' L源码如下" y- E5 s: _6 j3 ]! q
& n4 A& i( O$ yvar m,n :integer;6 x' R# y( }! K7 @& f }% u
var Name :string; Q1 p( `% j& O3 {+ V
var Obj :object;
5 F! e. D! O2 L. U1 N o5 Z
9 ]! q2 E! `& t) u6 t! H m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;) N/ N! n. W) e$ u7 z& x2 M8 W9 t
Name := sprint ("OutPut_Line",m); --生产线名称
: U0 w, Z0 S3 m) g# E Obj := str_to_obj(Name); --转换成对象变量% x; ^" {0 _* Q: {4 {4 |
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
( Z' d7 S2 }0 g! D6 N& g a If m>1 then --第二条线要计算产出率4 p7 J6 ~, l- D
Name:=Sprint("OutPut_Line",m); --产出率
! ]% v* K4 s8 T% u8 o Obj :=str_to_obj(Name); --转换成对象变量$ L: g. w/ Z1 c( a
Obj.val := n*100/OutPut_Line1; --计算产出率
9 _& ~% B% }9 I0 E end;: L Y1 ]7 y0 T, A- Q9 d% a
9 j" k \6 e. Q" a5 T& T) w$ w
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
9 \& b' j$ _" k6 Y+ y5 Z例如Obj := str_to_obj(“coat”);
$ \! {# W7 T' \ |