本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
7 k: [3 }- O0 W/ D+ z
8 z4 ^6 [( w$ {7 t& i各位老师好!
$ A& m) i- }' v6 M/ B 我在使用plant simulation时出现错误
) @0 X' F& H+ G; e2 ?源码如下- `5 e0 d$ K' ~" V5 Q+ y! d
) s4 [4 f: w2 c) O$ z
var m,n :integer;; z1 h) K2 p) V$ Q% H
var Name :string;
- ?' E9 C$ o4 o- {/ w8 t! j0 J+ p" Fvar Obj :object;0 C+ H" X/ \7 J" X+ s% t
" f4 o, U2 q/ F! O* v m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
5 l' u \( s% p" e* ~ Name := sprint ("OutPut_Line",m); --生产线名称
% |6 |5 |4 Z9 h- C1 m( x5 f Obj := str_to_obj(Name); --转换成对象变量2 Z h; R3 b0 y& D/ x# B4 H
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
- ^! T W/ ] F$ ?6 r( V If m>1 then --第二条线要计算产出率* A' Q2 O [" }2 ^: o. N3 D
Name:=Sprint("OutPut_Line",m); --产出率
& N4 k U4 k4 C! x# r( q Obj :=str_to_obj(Name); --转换成对象变量
9 c. Z* x4 R, s! L Obj.val := n*100/OutPut_Line1; --计算产出率' A$ i3 s3 ]# C: F$ L5 k) {
end;
9 W9 C$ [/ {8 o. R
0 v5 M- n% ~9 G. U5 ~! ^& y经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
; o& L+ [* a, \例如Obj := str_to_obj(“coat”); 1 ?. G' K \6 b6 T2 M
|