本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! x% R- M9 B9 k: C1 H$ ^. g( _; \, G0 ]) Q: k
各位老师好!; H! l7 o% l: }# n2 R6 C/ ~+ L% m
我在使用plant simulation时出现错误2 |" }5 T- Z9 ^ f* M
源码如下
& S" T7 B% w+ [) T s+ [: u U* x! V% [" @/ A
var m,n :integer;# U! D* V3 P9 e
var Name :string;1 Q( f% J9 L$ G% f
var Obj :object;, O$ a) y& \) s V% S+ V* R
9 R! ?% S5 V9 ? m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;! ?7 f/ M; x l) I v, p
Name := sprint ("OutPut_Line",m); --生产线名称6 i7 v! N7 f: U
Obj := str_to_obj(Name); --转换成对象变量
, o2 n/ j5 p D' Y) n% K$ F Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
$ y$ \! o ~ I If m>1 then --第二条线要计算产出率
" v% [9 Z( Y5 c" T. {# S/ f- R Name:=Sprint("OutPut_Line",m); --产出率+ D( c) t4 Q! k$ h- [
Obj :=str_to_obj(Name); --转换成对象变量; ] Q) _- i/ L: f
Obj.val := n*100/OutPut_Line1; --计算产出率
% q# y& d/ d# f$ A( Q! j+ o end;
6 I+ @% x+ T, w* V' @, t6 y3 z7 t
% L: k% E; h' m6 n经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,8 ^% `) a1 q/ d( a; w# t; d
例如Obj := str_to_obj(“coat”);
4 _, a5 \2 S/ ^: O( r6 v( `! M |