本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 " P6 f1 O& e$ ]6 R
& F+ p$ ~2 L+ W4 b$ N, T K/ K: ?
各位老师好!
5 X% V3 S/ ~) c 我在使用plant simulation时出现错误
9 U& S9 C' z% v8 H* l# [& K源码如下* l' B% i$ D% v) w- N
) o% @/ y/ e; N
var m,n :integer;' t) [" }- u0 ?" G
var Name :string;
' E* ?$ d) I0 `0 P0 p. Yvar Obj :object;; R9 \! N& a, r+ U2 e! u
# g! E/ m" D3 s0 D& M3 ~- n" q: s m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;, g7 b" F2 y& c
Name := sprint ("OutPut_Line",m); --生产线名称
) H$ A$ M3 [7 z/ [- V8 ]8 }( z Obj := str_to_obj(Name); --转换成对象变量
! }( ]1 D+ M2 e! b( P$ ?- X Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法: j1 ~# }# ^/ i0 t' r; h
If m>1 then --第二条线要计算产出率
# O6 d6 S! U. [! k2 v; f Name:=Sprint("OutPut_Line",m); --产出率4 h9 _0 R( ^: h( ^
Obj :=str_to_obj(Name); --转换成对象变量
9 B) ^" z) o7 j7 _- K Obj.val := n*100/OutPut_Line1; --计算产出率) ~% L9 P$ a% [6 Z% t
end;
# |) j! C4 i" @4 _$ \' q, U+ K2 j7 U5 a7 _5 z
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,0 n# N; k, N* f( R" N
例如Obj := str_to_obj(“coat”); 3 o$ n( f O5 q' g* m+ d. ^
|