本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
9 D' w4 ~6 I @7 H2 f' n* l0 _$ X% ?, p/ r' M7 w) J' P& F& Z" D0 {
各位老师好!# J" K9 w& [8 m6 T4 ~# m
我在使用plant simulation时出现错误6 b3 |1 B& g0 B( }8 f8 C
源码如下, J) Y5 T7 r7 E7 L, K9 F5 L
7 t4 R/ q0 [+ c# Evar m,n :integer;
; w+ I' g' m8 q1 a+ k# L$ {2 Yvar Name :string;
6 Z" x D5 z3 k# Q, {var Obj :object;! Q1 Z% f( D0 E
* n( P0 L7 V! K/ d# S; j m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;' h; ]$ o/ D8 v6 l* _& z3 B# N! Y
Name := sprint ("OutPut_Line",m); --生产线名称
/ g4 Q# E; p. S, w Obj := str_to_obj(Name); --转换成对象变量
4 _, c' s; n% s t Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法# g7 B. t) ^2 ^4 T
If m>1 then --第二条线要计算产出率
3 c6 d9 X/ \6 ^ Name:=Sprint("OutPut_Line",m); --产出率
& i' p+ g( I( b8 Q' ]1 F Obj :=str_to_obj(Name); --转换成对象变量6 ~9 I/ w1 ^7 V4 J( b9 z1 ^2 x
Obj.val := n*100/OutPut_Line1; --计算产出率% i1 U& [- ^: q9 i* w
end;" s" T' }7 n/ C% }& ~
' i' x3 J4 T, U
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,7 j& n5 R3 q* N0 N* C- b
例如Obj := str_to_obj(“coat”);
: J/ o5 q6 i9 v: i* _. n+ ?" I$ O |