本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 9 h* [0 @9 D* [& E1 d+ Z2 C& `& O
* [4 \ U) C4 K+ V
各位老师好!' y2 X- W$ F+ n& r: ]
我在使用plant simulation时出现错误- l- N, q- Z+ I- N' _ O
源码如下1 P" f1 z2 k1 w$ f! S* W
+ T7 s' J x \+ ?! Wvar m,n :integer;
0 Q2 S2 [8 P4 T3 G$ Lvar Name :string;
9 c+ h1 o* }. C( J% l- C# mvar Obj :object;
4 g y0 i3 ^: [) P: C1 ~1 v% b" z! Y: N$ r& D/ d4 M) F& O. K) Y0 t
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
" `% d9 z7 q( {. z Name := sprint ("OutPut_Line",m); --生产线名称" P: O6 A/ j3 R5 o' g
Obj := str_to_obj(Name); --转换成对象变量
% f& M" D: J; }! M5 z Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
: \, h- a; |+ l$ A- o" g If m>1 then --第二条线要计算产出率
; c5 Z8 b l' m# R. ?" P' A7 t: W j Name:=Sprint("OutPut_Line",m); --产出率7 V) x+ Q& R9 U
Obj :=str_to_obj(Name); --转换成对象变量! [9 w0 g5 y( _3 H) e8 c
Obj.val := n*100/OutPut_Line1; --计算产出率1 p* H9 j' y, L2 j0 @$ G, ~
end;) j$ j( }3 O& `( g* F. B# Q
' S, p1 s9 w1 m p" @8 ^# g经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,7 A- S f7 D/ G& O9 Z8 v2 u
例如Obj := str_to_obj(“coat”); ; X0 f! U' J6 m0 {) ^
|