本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! ^5 Y f7 ~8 H# W3 x$ O. [1 Q- \4 F/ H( W1 l; {) O" n
各位老师好!4 p4 D& V$ S/ w, Y3 ^* u. U$ u4 ^
我在使用plant simulation时出现错误- L3 a1 r5 K6 `9 Y9 {7 ` Z
源码如下+ D- E; E( Q( F
5 | z+ P( V) C: a$ O
var m,n :integer;
5 S1 A0 |% X0 {& ovar Name :string;
0 _6 J& h- P3 n m0 h, @% M" Mvar Obj :object;
) \# _. {0 E, M( P9 @8 ?6 t4 Z& B6 W9 S
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;" Q/ v8 W: q, y9 M# G; ?- t. R O
Name := sprint ("OutPut_Line",m); --生产线名称
5 q! M2 O+ F+ s% r! n Obj := str_to_obj(Name); --转换成对象变量
]: x6 R3 R* h3 v. w3 x2 v$ V& E5 ? Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法
1 f& B: [! k3 C If m>1 then --第二条线要计算产出率
: J7 U W, ~3 z& w Name:=Sprint("OutPut_Line",m); --产出率7 ^$ l3 N! e A j; n# J
Obj :=str_to_obj(Name); --转换成对象变量) Y+ P6 t( A5 c! b/ x7 q
Obj.val := n*100/OutPut_Line1; --计算产出率
, H; i5 L1 ?. N1 X! O" y- F% b end;
% C+ g4 {* A8 x9 p( e7 Q
) k: N# N1 a5 G y% c经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
: ~( e$ @5 O1 w; ?/ c例如Obj := str_to_obj(“coat”);
3 e9 k2 p" `4 D% T |