本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 5 t- M7 j- N" k, n1 i! W
# m; a) P7 s8 D5 {- ?: c
各位老师好!2 C' }) [: C. Z6 n9 ?
我在使用plant simulation时出现错误. R4 j5 i- g& {: H T) v4 ?
源码如下/ s+ Y, }3 R9 g! G% l8 Z2 `
# g# j2 M A: m% Y1 G8 M4 Jvar m,n :integer;9 I/ O& I% N s- L0 F
var Name :string;
/ ?$ r& k0 G; y$ t) d# `% Vvar Obj :object;- q( B4 T! ?- L" M$ G) [
" y9 h5 s8 n5 e s/ _2 x) R. f m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;( J/ j/ @+ r) N; x, N
Name := sprint ("OutPut_Line",m); --生产线名称
: R. v r" X$ O3 q Obj := str_to_obj(Name); --转换成对象变量
" ]' M% l8 T! A% g# d Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
" v9 r$ w, @. H If m>1 then --第二条线要计算产出率% ?6 r- O: [& L! H/ \7 p9 r. \
Name:=Sprint("OutPut_Line",m); --产出率
5 P: Z9 p6 |' G. m/ F2 }1 U5 t Obj :=str_to_obj(Name); --转换成对象变量. {; F6 V! u0 Q/ f
Obj.val := n*100/OutPut_Line1; --计算产出率
4 i, C1 H. w. y" N& P; \& c: T7 N/ { end;: ]8 z- e* \0 L, s! ^( @1 R) k
" Z: R% L7 p% M3 p5 d4 r# `经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
& n+ G T Q' S5 X: d* n! o9 _( f; k' a例如Obj := str_to_obj(“coat”);
+ N L% n" S" R. h. M4 a |