本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
- ~6 {6 j4 G* }0 m- S5 n; [) `3 w% a- R; m; j
各位老师好!
; x) l6 c! h8 e+ w2 b' J# u9 C 我在使用plant simulation时出现错误9 _* g$ k }. d% Z X
源码如下
" e- {9 [4 {0 {2 H8 k$ @# a9 D1 v" i8 s. v: }
var m,n :integer;8 }( ]2 {: f; O- K" H
var Name :string;0 H% U* w: E+ q) Q& C8 l5 p/ L
var Obj :object;
+ D0 X" T& l3 c4 d9 \1 F2 w0 @( ^
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
) |! w! O! J! r# ] Name := sprint ("OutPut_Line",m); --生产线名称
0 T$ D2 _. n9 @1 k. N( v: u Obj := str_to_obj(Name); --转换成对象变量7 X+ R2 I% {, q% b1 F- x
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法# w5 S3 \7 u C
If m>1 then --第二条线要计算产出率+ S' e$ Y# g+ A; O! i
Name:=Sprint("OutPut_Line",m); --产出率
- J: }" w+ b, ^0 U2 g% z3 \ Obj :=str_to_obj(Name); --转换成对象变量6 @7 ^3 \/ e! }0 h
Obj.val := n*100/OutPut_Line1; --计算产出率, s2 K$ L9 L+ H) N' c
end;% R& q' R e! n
9 }9 |* f* ?( _3 o# }: U
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
/ |* O7 {3 w# D例如Obj := str_to_obj(“coat”);
* F! f% U9 K, o4 K i8 q: f1 s |