本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
% Z" T. {1 L$ ?8 C% z7 F+ b& s
: A o" \4 W& F8 _9 X各位老师好!
0 L) U% j$ o/ t7 U 我在使用plant simulation时出现错误
5 f6 _: }! b9 ?- ]5 k/ g源码如下, k9 p- s8 S) B; p# t
1 n: B; \0 ]! ?% r9 p, S/ E
var m,n :integer;- u0 x( m0 O1 N
var Name :string;
; F! W/ x/ E% i8 bvar Obj :object;
4 k" R3 d* ^0 w; m6 X1 W0 t5 s( O C7 K7 |% o% y7 P5 V
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;# m3 w L$ |2 I2 q6 x# o; \
Name := sprint ("OutPut_Line",m); --生产线名称: w* a% \9 Q& B X
Obj := str_to_obj(Name); --转换成对象变量
7 Q% ^/ g- |# a5 M* k Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
* I8 c% l( k4 b) _ b6 j If m>1 then --第二条线要计算产出率+ d& {) ~& Y% Q/ _, X
Name:=Sprint("OutPut_Line",m); --产出率6 `% \9 H5 l. Z3 F5 b
Obj :=str_to_obj(Name); --转换成对象变量0 Q1 }: u; a% I" b9 [3 L# R# ?
Obj.val := n*100/OutPut_Line1; --计算产出率
1 c( X) S8 t4 U2 D% j" N9 T end;! k6 ^3 v% K' I$ d: r' ~+ P7 H- h3 \
: t/ w- T9 [" K* \ ?
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,9 ]0 A. ~$ g$ ]- w, \
例如Obj := str_to_obj(“coat”);
6 G; S, l$ X" t& ? e$ ], o! |1 B& w |