本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
$ |; p7 @- g0 b) E; x
s0 ?0 f- H9 N3 f# q1 ~& X各位老师好!
; K! R- {. r9 N! w. W! Q7 b3 h 我在使用plant simulation时出现错误
4 k: \& A1 ^" v) I, X$ v源码如下
$ \! k1 z# q1 r* v/ }6 t9 L3 z* Z) e3 v. j
var m,n :integer;) D5 v8 W% \* }' H) x1 t
var Name :string;1 I3 \) Q! B7 R; p& I) W' q$ N
var Obj :object;
" v4 c t! D: w. b* n0 A* f0 q% D C- V& R' P# j/ o! |, t
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;6 |' [1 _$ @) V5 _. R& m
Name := sprint ("OutPut_Line",m); --生产线名称
& g1 n' M) m8 P5 u6 H Obj := str_to_obj(Name); --转换成对象变量9 Z" [" [5 B8 g3 L' M* |3 U1 a
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
7 i% Y! F, |& F If m>1 then --第二条线要计算产出率
2 G& H* q( K7 _0 A Name:=Sprint("OutPut_Line",m); --产出率3 j& z1 i) h. @* d7 ^5 m& c% ?* U
Obj :=str_to_obj(Name); --转换成对象变量* ]$ }" d% t% w$ {
Obj.val := n*100/OutPut_Line1; --计算产出率5 Y! d6 n# Q6 I& o r: u9 {. [
end;
* ^- o4 i6 l7 d3 ?# `6 L5 {% u: T" L$ \1 `" N# _( |" F$ w
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,+ t4 J* P2 [$ a! K6 Y, S
例如Obj := str_to_obj(“coat”); ( v6 c" o" |; I6 _, N& @7 Z7 G
|