本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 7 y( Q+ ?% R% i6 q0 `
; L/ x* O( I4 I6 s% M9 v
各位老师好!
4 k0 I3 R! i! K) Y) V# v5 g 我在使用plant simulation时出现错误 s+ l4 |0 ~6 e5 }) P5 g
源码如下+ | \ m+ ~( t3 \
, m/ r/ t7 R) N0 A- m: ]% Z2 |var m,n :integer;
G7 E1 Q1 n* \3 f) vvar Name :string;
" x+ I+ y' h& Wvar Obj :object;
- k! w+ d/ r8 N) @* w! [
8 D, I3 l2 }, ? m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据; O& w2 C/ k! f ?% M
Name := sprint ("OutPut_Line",m); --生产线名称( Q1 ]9 n$ a% o3 |# e
Obj := str_to_obj(Name); --转换成对象变量0 Q- C( i: \9 \5 D, |! g
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法& G3 W4 z5 h9 o5 H! \
If m>1 then --第二条线要计算产出率$ r, w5 [0 H3 {& ^, O( I% R P0 N
Name:=Sprint("OutPut_Line",m); --产出率
, z. T! e/ t4 R8 W1 W Obj :=str_to_obj(Name); --转换成对象变量% y0 l$ w' ]- H; @
Obj.val := n*100/OutPut_Line1; --计算产出率
. p# J5 x; M3 ]/ d& k end;
) ?& [+ z8 R% p) n g% _, |) q A. x! C* M5 U: E, S+ |5 q
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
' @6 u: O% R8 B3 a u& k, L例如Obj := str_to_obj(“coat”);
$ d n( l) p! [' A |