本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
# `3 C3 V% b! q- F! [1 j6 F) V( K* l& S% j
各位老师好!( S: c$ }! N/ Q6 J
我在使用plant simulation时出现错误
6 ?8 F/ `* u+ [源码如下
8 L% r& b* C0 a) P* K
7 w: A! S# c9 G! B, [var m,n :integer;
7 e9 [$ b" d; ?# m' ~! k! ~var Name :string;; W6 K y5 \$ v$ O% g4 s2 F0 C/ w
var Obj :object;
2 x; A: x: n7 L7 ^' |: z; j
6 }8 A7 S) s7 H# D5 X% h m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;2 w, n& X: ], }: i6 i# w; c
Name := sprint ("OutPut_Line",m); --生产线名称# _0 ]4 D" Z2 Z) [; R! T
Obj := str_to_obj(Name); --转换成对象变量( g' V/ v) {" L! d/ {7 ?& B
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
$ i; [: E( L7 u5 C& A: L If m>1 then --第二条线要计算产出率
. s3 h) ~( F+ n0 p# \1 a Name:=Sprint("OutPut_Line",m); --产出率
: ?9 M# t, S+ C: e* t) s) B Obj :=str_to_obj(Name); --转换成对象变量
' L% D$ V0 i- u! [6 { Obj.val := n*100/OutPut_Line1; --计算产出率" m& F/ w1 `6 x5 m& l/ `
end;
2 X" w+ a% J" l; c |% O* h; v! y3 V$ B+ G: l/ h
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
$ u( V, m+ b1 S8 L/ y( B例如Obj := str_to_obj(“coat”); 8 x& `# \+ X8 F& H; B
|