本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
9 |' J1 C" }: u2 B! _3 `
, c! x; j6 u; Y各位老师好!
F( j6 E" E. w) r 我在使用plant simulation时出现错误, K* J* `" b+ H& |9 H* U
源码如下
& ?1 y6 i6 e5 n5 ]7 B1 I: y+ c, U H. W4 [. ?
var m,n :integer;
4 a: p8 f- g2 H8 Zvar Name :string;9 V# E1 q; `. F1 ^
var Obj :object;
6 y4 F) A! T+ S6 z; s, |+ y
2 @: m0 {5 p! c' X, Z; A8 Z- z! @ m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
- O" |' R0 S! x Name := sprint ("OutPut_Line",m); --生产线名称( A% a3 f/ ^( b4 [. R$ w- m1 e f
Obj := str_to_obj(Name); --转换成对象变量
3 s: |; K6 J( D- g Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法) |4 [* ]0 \4 F. C( R
If m>1 then --第二条线要计算产出率
: I b N4 c5 m& h0 ? Name:=Sprint("OutPut_Line",m); --产出率
2 ? c4 s. G. f- ` Obj :=str_to_obj(Name); --转换成对象变量; ?1 e _/ l- ]& ^7 \. m, o1 ^% ?
Obj.val := n*100/OutPut_Line1; --计算产出率2 m. U. q3 B m) C. A. E1 A- n9 j
end;
. I- g/ B& W0 d. z6 p( E$ G1 U2 n9 w! q% z
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
3 X9 ~( G5 h! u* G4 V/ d9 }9 h- `例如Obj := str_to_obj(“coat”); 3 u& l* P! d. {! W' r) Z! n1 k
|