本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 6 N* v6 z2 a. @* o4 g& m
) w- `5 ?# z+ h8 [各位老师好!3 C$ K0 _& ]/ H
我在使用plant simulation时出现错误
+ c, g; E* S* A! M源码如下
5 L% j* Y+ p: `9 e* f) ^ J" n% e! b7 l; F5 h( D1 q
var m,n :integer;- l6 x6 x" A' |4 P
var Name :string;! d+ u7 K* M2 f/ F. [# O. L
var Obj :object;
/ N0 H1 |3 m r# ^" b. c
& j8 P6 S3 _, k( h* b# Z8 u- u- X1 l m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
* J+ i; G: o0 Z& e' |# b6 I Name := sprint ("OutPut_Line",m); --生产线名称
" y- ]! E' G1 u7 _- ` Obj := str_to_obj(Name); --转换成对象变量
2 H! F' r/ t7 `& d2 z' R/ q) ` D Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法; B9 M) }' C; n" g# c# n
If m>1 then --第二条线要计算产出率5 w, V% B l: R7 c: i# F( R
Name:=Sprint("OutPut_Line",m); --产出率
) E& s) u% H4 A) W Obj :=str_to_obj(Name); --转换成对象变量5 ?) u! O+ I I/ u+ w% ?+ |
Obj.val := n*100/OutPut_Line1; --计算产出率# e# ] Y, i7 ]! D
end;
* g6 @2 G6 F& P6 Y0 ?) N
+ V# G. g3 k& t. D6 x5 W经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
/ K! J7 K7 T* Q; E/ @' s$ J1 g例如Obj := str_to_obj(“coat”); 6 @1 @" T& V" B/ E: j
|