本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 * h# [7 Q6 w6 G3 w+ e) B& h7 ]' d
! s. l/ x* x0 O5 ?& H各位老师好!
' n2 o5 h; E* `9 g% d& Q( u 我在使用plant simulation时出现错误" C7 {8 q2 V# a' j: C, I
源码如下
5 H6 D6 c$ H- c5 @* P3 Q8 k2 H; `" i
var m,n :integer;6 J3 x2 x7 [/ u1 R+ n, U, x0 N
var Name :string;3 ]5 L: ^/ @( v0 i3 u$ Q
var Obj :object;" V8 `3 g2 }6 c' n: j' e
; {. h$ c, H$ Q$ Y7 H) R; x6 @
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
: S% C8 }6 a3 P2 x; O1 X Name := sprint ("OutPut_Line",m); --生产线名称1 t8 g' z. j) @3 K, \
Obj := str_to_obj(Name); --转换成对象变量( W4 E2 p5 {1 w n4 u; J$ q8 |
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法, w; k' z- T2 S3 u2 S8 X, X. X
If m>1 then --第二条线要计算产出率$ g5 V! [( `5 f! s+ y. V6 b1 i+ V
Name:=Sprint("OutPut_Line",m); --产出率) {% ?0 W0 W7 U* s2 e9 T# e0 |
Obj :=str_to_obj(Name); --转换成对象变量
- S$ u* {9 c. t5 Q( V Obj.val := n*100/OutPut_Line1; --计算产出率
% i& J/ I0 ~' B5 z- ]2 Q end;
# ~# Q* e9 \ L. L
% c( G5 N8 d" I1 X2 f# a7 O* s经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
8 w) A3 j9 J3 [! U" r4 |# a例如Obj := str_to_obj(“coat”); $ H# E) A! }3 Y
|