本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 ( ~" A3 \+ s+ v/ ~. s
4 R* E; h6 u& [& Z% S% T4 h+ u2 W
各位老师好!
" Y, X1 J0 W/ A/ Y& y- j% c# T0 }: _. P5 w 我在使用plant simulation时出现错误0 R5 U5 K+ w* g/ B7 C' X7 j
源码如下: Z, @( z* I/ r: g4 ~1 e0 K* u
8 v N0 v+ D3 V/ Evar m,n :integer;
7 d5 @. ~, m7 N% \% |var Name :string;
# c8 \- ], O& L* T% E! J4 M0 rvar Obj :object;
s- t2 C6 `8 M( j* K, N/ E. `) J }) F* V( N* C: B5 O
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
( |7 Y. ~. x+ v* {6 _ _0 F9 R Name := sprint ("OutPut_Line",m); --生产线名称
: q/ w# }6 u# }# U$ f" Z7 l2 t4 i Obj := str_to_obj(Name); --转换成对象变量
- I5 z% r( \+ I V. s6 E/ ]! A- G Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
* C) l4 O$ }4 ]" c3 L- V6 ` If m>1 then --第二条线要计算产出率' m% W: V4 a; J W9 J
Name:=Sprint("OutPut_Line",m); --产出率& ]/ v4 Q ?) @2 H2 h9 p0 w3 r' O
Obj :=str_to_obj(Name); --转换成对象变量
( k2 a6 Z9 d/ J1 ]6 u( v Obj.val := n*100/OutPut_Line1; --计算产出率
" I! _2 W! b5 s5 ^# e3 Q8 a end;3 R/ L- w( ~0 |$ \. k* r
0 N: Z4 e$ Y0 ]/ c# g* ^经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
/ O( }2 l* @; H% t8 \9 j. w6 M例如Obj := str_to_obj(“coat”); 2 y+ i+ E# v. z! m( z+ I# E
|