本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 # ?( s% V* Y$ G1 v
7 D. G. o5 s4 E2 d1 g
各位老师好!: f$ Z6 ~/ K+ U1 x3 \( ?2 Q
我在使用plant simulation时出现错误" ] G f9 n% L# j
源码如下- i! W! {: _8 {: ?. _6 c
. N! f4 b2 [2 s2 e
var m,n :integer;/ ~- @1 f8 t9 P, c
var Name :string;
3 Y" W, y$ s( u9 \- w6 f& Rvar Obj :object;
. F" r2 U k9 y8 f+ I4 b E- `7 G8 Y) O5 ~% B7 \
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;$ \1 F" |- F: z) [+ K
Name := sprint ("OutPut_Line",m); --生产线名称9 N- ? U: m1 x8 S& o; k
Obj := str_to_obj(Name); --转换成对象变量
+ a4 c7 c! n$ `) ?: q; R Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
/ _. a: s8 S0 x, T7 E If m>1 then --第二条线要计算产出率
4 A& U6 j# K# f; _8 O' r Name:=Sprint("OutPut_Line",m); --产出率
: ~7 u# q8 s2 m) L" Y Obj :=str_to_obj(Name); --转换成对象变量1 _+ [ p9 ^( z* m8 j. l
Obj.val := n*100/OutPut_Line1; --计算产出率
+ Q, j9 {7 _7 `+ ^ end;
: D& A* o; H7 F
) \& w1 J8 d7 y' `经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行," h% ~& h, [# P& G1 T" _
例如Obj := str_to_obj(“coat”); / W9 o+ k8 a+ E1 F6 C+ l. t
|