本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
T) w" q# v/ R5 X" U2 a/ Q7 O5 u4 G) ^. `) ?- \* t
各位老师好!
% z: R: g' u& {( R& N: | 我在使用plant simulation时出现错误
% S* o F @' S& E- {3 n8 P源码如下
5 @; d" Y' }% Y& X: T4 t' Q/ `9 y5 u* \: C# [
var m,n :integer;. b5 `9 E. M: Y9 ~3 O2 n5 t
var Name :string;
2 g0 ~2 b* Z+ m, i1 Y/ [) q7 @var Obj :object;9 A: e7 U7 Z( n! M* D
2 ?2 V# \9 r/ {3 D: k. q T
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
1 ~' s) w; `4 A3 A2 | Name := sprint ("OutPut_Line",m); --生产线名称
, M7 n) q. w; N: z Obj := str_to_obj(Name); --转换成对象变量
( o" r u4 n, k! o+ J, \ Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
- D" t7 X; b" p4 z9 z If m>1 then --第二条线要计算产出率# x0 P" _% p( ]
Name:=Sprint("OutPut_Line",m); --产出率% i% i' K4 C/ N
Obj :=str_to_obj(Name); --转换成对象变量& W6 z$ F; A) C
Obj.val := n*100/OutPut_Line1; --计算产出率
7 ]" J4 m1 X$ l9 C end;: V; ~& S( m' H
3 s+ ~# J3 ?* ?- I* A- D经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,6 s5 _+ r% I7 k+ h: J
例如Obj := str_to_obj(“coat”);
+ H% C7 ^4 ^9 N$ a. ^ |