本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 % T% U$ Q! w% L6 O* s
9 d1 G4 l- ^- v/ M% l. u2 x
各位老师好!4 j) Q# h6 J# ?8 v" P
我在使用plant simulation时出现错误
) X2 @/ K3 [, K G: {$ ]源码如下8 } a% f& @, {2 @( H
6 w$ o5 q" O% B0 Hvar m,n :integer;
4 y1 q5 c+ }2 [% C' Lvar Name :string;3 x2 m4 z) h' V4 S
var Obj :object;
g. \* o; }7 [7 T
! _& h+ P0 z5 ^% w. _6 N8 @5 H, g m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
& P, {. X; U* ], {9 j' V* D' k: A Name := sprint ("OutPut_Line",m); --生产线名称5 g0 G$ A3 F% a i
Obj := str_to_obj(Name); --转换成对象变量# j* w; }5 Q9 v$ D
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法3 ^; U* R3 G2 R- _# s
If m>1 then --第二条线要计算产出率5 {5 }% ?- b1 d& C# z+ M, @, J
Name:=Sprint("OutPut_Line",m); --产出率
* N" u/ L g+ z4 ]8 h0 b# x3 T Obj :=str_to_obj(Name); --转换成对象变量
0 L) y* l; a- a Obj.val := n*100/OutPut_Line1; --计算产出率4 ^2 e! U: w% D1 G' Y% q
end;
* L% N; d4 S, D, b4 V
D+ n. S1 ~7 v/ o经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,5 P7 o% [: I/ v$ j; }: `( e7 G
例如Obj := str_to_obj(“coat”); 4 N# B7 t. {& ~& J/ X
|