本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 + `8 d! Y3 Y" J2 P, o) w& s4 \
5 [+ U: V1 y; S( q! O% v各位老师好!
! ]) o8 _- J2 u5 I, k 我在使用plant simulation时出现错误% K6 Q0 o8 y7 b* I, G
源码如下
% k+ d4 x) x# l+ l: z( _6 q
) C; V- [; ^+ c! l4 Bvar m,n :integer;
& G# @/ n4 N' |; X) ~var Name :string;
* X' J; Z! P5 i% L4 l3 ^var Obj :object;
, s' t: u' C' b. q8 O' S. B% `* x9 L3 D6 z3 E) g' D" G( v
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
t v$ m: \' d2 C( r1 L* e8 o; A Name := sprint ("OutPut_Line",m); --生产线名称
1 ^/ Z5 z# g, K' } Obj := str_to_obj(Name); --转换成对象变量
7 p: b3 H2 D, f$ g1 f+ b$ D9 t1 M1 f Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
0 A/ N8 W) {, s# b( Q! q+ E If m>1 then --第二条线要计算产出率( Z1 q ]% L, u, j V
Name:=Sprint("OutPut_Line",m); --产出率
: e+ g8 i* F Y) B& Z# f Obj :=str_to_obj(Name); --转换成对象变量5 {- s4 k. w3 K! f- l; V* y; [
Obj.val := n*100/OutPut_Line1; --计算产出率
1 a+ T" M: t- \9 @- @ end;9 Y3 l5 z- D) N- D
# s0 W9 v+ {9 s经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,% c. d: k! c" \8 `7 U
例如Obj := str_to_obj(“coat”); 9 [4 L5 m9 o P6 S' X& I9 u, [
|