本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
% G5 p! M y) f9 \
8 G: x9 a8 s/ ^$ Z* @各位老师好!
5 V4 U7 [: n3 ~* I 我在使用plant simulation时出现错误
; ]; d4 b3 I7 }3 r+ u源码如下2 I. b1 D' U- n$ P; Q
% m) Z/ C" c) H; C/ S7 vvar m,n :integer;
! @) c {% B+ s! G! g6 ~var Name :string; q! T; n# G3 m- u2 M8 w* ?+ K
var Obj :object;* {% c4 U- A K2 g0 M/ M8 ]" U. X' [$ ^
1 _) C- J( _* U& Z: ? m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;) `, k' r/ K7 o7 B- A
Name := sprint ("OutPut_Line",m); --生产线名称
" `: B1 Y5 x6 t- D Obj := str_to_obj(Name); --转换成对象变量
7 L/ J( Z; c ]4 e$ t5 p# O Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法6 B* C5 c) p) \. O0 m
If m>1 then --第二条线要计算产出率
% L+ B: M7 P% p. |' I Name:=Sprint("OutPut_Line",m); --产出率
. J7 }$ R0 ^8 [5 p' [ Obj :=str_to_obj(Name); --转换成对象变量$ U% J; R1 f) T
Obj.val := n*100/OutPut_Line1; --计算产出率
! l: P: Z* W/ b+ x3 B end;
6 p+ Z5 X9 I( m' F5 `/ l% k9 H: Z/ p0 O% T9 t2 q" W! Z, s
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,, }7 {! L; y9 v" m4 w, l
例如Obj := str_to_obj(“coat”);
8 g8 V% C$ D/ G/ `+ ?3 ? |