本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 , A- N. E; y' @# a; S$ `. a
; r) j* Y8 Y6 Y/ u' W1 B6 b各位老师好!; S& f) o' H8 s6 d# S# C
我在使用plant simulation时出现错误0 b: K5 B( O7 S7 j
源码如下! @& v4 d( i$ f' Q7 V% h; `4 f* A
+ u: n; H5 G7 avar m,n :integer;
- b& [5 g3 Q, n; X8 y9 Y& H: Kvar Name :string;; G8 a' u% r7 `7 j1 q
var Obj :object;5 W* v3 ^" B' D) w0 u* _
/ G+ @8 h) f/ _
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;7 s/ }/ i+ d+ y/ L1 [, M4 M5 f
Name := sprint ("OutPut_Line",m); --生产线名称0 B9 \% D5 K3 l9 N, o; r, [ n
Obj := str_to_obj(Name); --转换成对象变量
7 W0 X+ h( U$ J# U: Q Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法' G8 t# e V7 {
If m>1 then --第二条线要计算产出率6 C- _. u( ?8 [: Y
Name:=Sprint("OutPut_Line",m); --产出率$ t2 S: y. r* o$ b& l! D1 R8 X
Obj :=str_to_obj(Name); --转换成对象变量
! u w' d/ v2 l! C3 u% u Obj.val := n*100/OutPut_Line1; --计算产出率+ k1 W* g; W4 V2 X) k8 D
end;4 x4 g9 z. i: j: M* C
- c- A& Q! T* o经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,* ]3 f( ` Z$ h6 ^. l3 M% D
例如Obj := str_to_obj(“coat”);
+ N- q! }. k) [5 t9 v5 A |