本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 & o, j+ x, P+ b6 Q1 M% N, Y' M
6 j. L9 J7 X( H' w8 @各位老师好!. o9 G$ r, {# m: `$ l. T
我在使用plant simulation时出现错误6 F n, a$ ~ i7 U( T3 O
源码如下
, F$ ~- p. G$ K# a* j3 l
. O- P) }8 G& v1 S9 c7 B& Q( }var m,n :integer;
5 b# g) e( E+ Dvar Name :string;6 } {1 O% a0 k3 O( Z
var Obj :object;
$ l2 b. U- s- w9 S4 n& K& L( D
1 N Q0 K: P; k m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;! G& k* ~0 o+ J. g T7 Z* [! {1 O
Name := sprint ("OutPut_Line",m); --生产线名称
3 h7 ]1 s9 [- {- }7 O Obj := str_to_obj(Name); --转换成对象变量0 H% M5 M* |" |% a
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
, \5 o: `' Q6 F If m>1 then --第二条线要计算产出率% m0 O3 t) R( C" d9 v3 n$ }6 U
Name:=Sprint("OutPut_Line",m); --产出率1 K, ]1 n6 P5 ^) I
Obj :=str_to_obj(Name); --转换成对象变量
/ A. U9 _7 M# U2 L; _3 r) v Obj.val := n*100/OutPut_Line1; --计算产出率2 k, O# S4 n; c
end;
3 n! K4 P+ F% V0 M2 Q1 q5 Q0 T& w; U3 v* _
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
6 d! M5 \& F: V R/ d% W, P例如Obj := str_to_obj(“coat”); " E4 g' u1 O5 q) o" ]7 d
|