本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
u. M7 L% i( Z& q, j
" c" B2 b' C) S$ g# i/ z* W各位老师好!+ U& u# Z/ y$ J( M: c& ?0 S
我在使用plant simulation时出现错误
$ D1 S$ X' W: w# {+ A源码如下4 D! T" \% w, c2 t2 s- C: B5 X
7 e, t' p$ r: Dvar m,n :integer;
: S: {! Q2 Z4 I; s q: c2 W: ovar Name :string;6 K" {% S$ b; G# H0 g9 }& @# G- P
var Obj :object;5 m) Z' w; e/ ~+ q \
( O7 y3 z' k# y: [9 s8 V. r
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;9 m" U" I# E" l* Y7 B
Name := sprint ("OutPut_Line",m); --生产线名称3 X6 U$ C5 ~( B# o# i1 F
Obj := str_to_obj(Name); --转换成对象变量2 f, i9 `3 K9 V' @" W
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
# |8 o7 s; o8 s' Y If m>1 then --第二条线要计算产出率( e" @3 O! I7 H! _" c- j
Name:=Sprint("OutPut_Line",m); --产出率
) ?1 }3 D0 y6 P1 v4 F( {% i Obj :=str_to_obj(Name); --转换成对象变量
8 {0 ^" v" A' ~3 V( o Obj.val := n*100/OutPut_Line1; --计算产出率" R* T# H8 u; X) J
end;
. ~7 \: K! c5 p$ f2 F' M: W) D/ B) g2 }( n8 M& v: K" Q: Z# D
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,/ c" N) E0 P8 r- g. c' t
例如Obj := str_to_obj(“coat”);
+ P2 Q* |; v4 D; i6 K |