本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
: Y; m+ F' q0 {+ m# z2 k% i' ]9 Q) {6 A9 z* O' d( Y
各位老师好!- F; b/ A+ M7 I1 p
我在使用plant simulation时出现错误8 o3 u- l5 V! E
源码如下
$ c* g% u3 }) z* ~# E+ W3 G' x6 H5 [
var m,n :integer;# @4 G( W. S8 j" T0 h
var Name :string;
+ z; I2 L) O. a7 {3 Ovar Obj :object;: \6 @0 s% N0 i, f% I- o% F T
3 x# c# h8 m: N% `+ g9 m m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;0 Y3 G5 ]1 x% k" Q0 U h9 H
Name := sprint ("OutPut_Line",m); --生产线名称
( H" k7 B& A, c) s3 T* Z Obj := str_to_obj(Name); --转换成对象变量
) `' v" _- L9 m! c Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法) F$ O0 i$ e6 W! {$ v- i" k' ^
If m>1 then --第二条线要计算产出率
; D8 z+ ?& ?/ X: N. ~, U Name:=Sprint("OutPut_Line",m); --产出率
- u4 b8 N# P5 h& K8 G$ X4 O) m2 \ Obj :=str_to_obj(Name); --转换成对象变量) b+ _" r% }9 b, C& R) {+ o% e
Obj.val := n*100/OutPut_Line1; --计算产出率- \: x' W+ S, W7 k: K, G
end;6 d5 R8 I2 O) s3 N' X5 P! [( e
7 Q) H3 h' H- w, U( e) p# f. E4 T经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,$ p# B# O, I3 t
例如Obj := str_to_obj(“coat”);
# ~; h: ]3 \$ g$ U( H |