本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
: I5 A u+ {4 c$ b% K. |, b0 v2 Y- t3 I
各位老师好!
4 r3 x" n: z$ d 我在使用plant simulation时出现错误6 q v2 Z! e9 W
源码如下
9 _$ L& r& U2 O; t" r0 E+ Y
( _) T) @& f, ~- W: I2 f, E, O$ Hvar m,n :integer;2 J) `% s, Y/ n1 i8 v
var Name :string;
0 `8 @( _" x% i$ @var Obj :object;
* R$ w2 A/ c; {/ ]3 w) ~( K% Z* W/ f+ z
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
2 a7 L/ h8 Z1 {+ R0 ^ Name := sprint ("OutPut_Line",m); --生产线名称( l1 B* v5 j$ h( H
Obj := str_to_obj(Name); --转换成对象变量
8 h: X. ^" e6 H$ R4 F9 L. }' ~' A Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法 \( u" @* j3 B# D0 l/ y$ Y) O
If m>1 then --第二条线要计算产出率) \0 k6 R' O. _- L' { e! e- ]
Name:=Sprint("OutPut_Line",m); --产出率5 p/ `/ r1 N5 Q4 y) d4 b9 t
Obj :=str_to_obj(Name); --转换成对象变量
* T, x- e1 w9 F5 i Obj.val := n*100/OutPut_Line1; --计算产出率. p* k& i) W6 g, b2 q& c R4 z
end;/ ?! n1 `9 _( k4 f
9 I2 |, W1 @8 D8 K* I+ |
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,# }8 H' l5 F3 E% h; l
例如Obj := str_to_obj(“coat”); $ ?3 C+ z3 I( O4 m \. T5 p) _
|