本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 & }1 o/ |3 F, b6 f3 h! Y
4 Y( h y5 V8 U2 U; ^. O% C各位老师好!& X4 T3 y# J y; K* a6 B& s
我在使用plant simulation时出现错误
: O; A4 q7 C; v8 e9 @0 |( I7 t% \8 \+ e源码如下1 T9 v! y. c$ v% `* r6 P' n
/ R* s2 e; J1 i# l: H) ]9 }! o
var m,n :integer;* r* Y) A; i8 D) R( z
var Name :string;: f2 G6 \: v/ s# i4 }; P8 ~4 E
var Obj :object;. p/ X. S5 s/ w
4 ]3 }7 `) z- e! [, x! [8 L B$ J9 @ m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;/ B* t" r- n0 W, l1 e) e
Name := sprint ("OutPut_Line",m); --生产线名称
4 Z* ]) j5 k8 K- K Obj := str_to_obj(Name); --转换成对象变量8 l) A9 A) u% w
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法! ~/ G# P3 d5 }% g9 ]5 c$ ]
If m>1 then --第二条线要计算产出率# N1 q- V. r$ D$ j, y+ x5 O/ D
Name:=Sprint("OutPut_Line",m); --产出率+ ?1 T2 W/ X+ S9 _- m# k* x
Obj :=str_to_obj(Name); --转换成对象变量
* n7 |( n, t& O: v Obj.val := n*100/OutPut_Line1; --计算产出率
^! J0 d/ t+ D# v$ `) V# ^; c end;
3 g7 Y4 n* s/ m/ q L* o+ C p4 \% O. Y5 S5 @4 V
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,- j$ `5 ^3 R4 m+ ]
例如Obj := str_to_obj(“coat”); 4 s' Z! F6 J" @9 {
|