本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ( g' x6 p5 ]: f' o
3 j+ N5 f7 ?7 [- d3 W7 X各位老师好!
" j; K) L# U+ O$ V9 L f: R+ q 我在使用plant simulation时出现错误
8 Q6 C& f! H0 u源码如下1 `2 ~4 W1 `8 ?8 s5 u' o C) [# h
& J8 j2 m' ]+ w. Y# V/ L$ u# gvar m,n :integer;
/ i: U/ _2 ?2 E. C; B% Ovar Name :string;
7 ^8 ]& B0 S; i/ ?var Obj :object;
9 V5 l( r7 P* [- v7 P/ @- T8 j, l2 W# ]9 U& C t6 |$ e2 y' r
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;' H' e0 P3 g; r0 a) a0 d4 p: R9 W
Name := sprint ("OutPut_Line",m); --生产线名称
6 m! F# X8 H* X0 d: W+ d Obj := str_to_obj(Name); --转换成对象变量
9 k8 h6 ]1 k" a, [- R+ z: q Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法& K3 L& L8 J- x7 m9 a
If m>1 then --第二条线要计算产出率/ p9 B( c* g9 a& q
Name:=Sprint("OutPut_Line",m); --产出率
/ Z/ T) f5 W) `9 e8 q- I; H& X, B Obj :=str_to_obj(Name); --转换成对象变量
1 G' G3 J" e! u' P6 Y* w$ F7 h Obj.val := n*100/OutPut_Line1; --计算产出率( f# x" g3 o: P% K$ n' p/ _6 u
end;
0 P6 E! i7 e! j7 ~% G) |/ X# I, v+ M* E0 G1 Q1 K
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,% m' t* e: A y# C) J
例如Obj := str_to_obj(“coat”); 1 h ?2 j' v' Y% a. x- i& S. B
|