本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
; u9 v, a0 ^$ @" R3 K& g, E/ k0 D; O. `
各位老师好!
4 Z" X2 A4 q" p! Z" ~+ n5 L 我在使用plant simulation时出现错误5 Q& L6 L3 ?1 m- v% a
源码如下& Z* A7 _3 K- b" j4 X& X- T
0 ]( Q2 w5 [: Z, }2 p, r6 a4 Xvar m,n :integer;2 M- F% J1 X# B8 h6 v5 b% {
var Name :string;
. M) M" n/ J& x f( nvar Obj :object;9 W k- [# }0 J- U7 E0 Y7 O8 a
3 m' p6 D/ b( Y) E' X1 A( u m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
2 k, ^! R1 [, R( x Name := sprint ("OutPut_Line",m); --生产线名称& e. h9 w# h. }& ? R/ n3 u
Obj := str_to_obj(Name); --转换成对象变量. F* ?; S- V( ~4 @
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
7 Z3 E5 U9 s3 S) J/ K1 ], f7 S If m>1 then --第二条线要计算产出率7 t! F5 S, r) Q+ f* o+ a( ?3 }1 D
Name:=Sprint("OutPut_Line",m); --产出率# q8 M& ~$ T4 {" p5 \; g* x
Obj :=str_to_obj(Name); --转换成对象变量
- u' [% A: F# B+ E Obj.val := n*100/OutPut_Line1; --计算产出率. [% ?) g! m, r6 b( ~6 P5 i! v( I
end;
2 L5 w: ?+ p: s; B& r( `6 J8 w! o- ~3 K# Y2 y" m
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
; P: d# T+ ?" B9 g7 | ~% q例如Obj := str_to_obj(“coat”);
! k# l, C4 Q& j& w |