本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
! U% h2 g. ~7 x6 X1 X* _) t! o- g6 P( O! |. W! Z8 M
各位老师好!
: k$ o; @! j7 ]+ F6 [' R 我在使用plant simulation时出现错误
8 U! {# O4 h5 C. p! Z0 ]源码如下
6 Y$ ?" }1 y/ a8 P. v
+ c* t% V# i& G, a# b7 A# l$ Dvar m,n :integer;9 ]( \ O0 l. r2 t
var Name :string;$ U' D' w6 S: }+ X8 D5 m
var Obj :object;, l7 \9 O O$ [7 Y- k7 k1 A2 n
- v( x- E8 Z- G0 q
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;. W6 O! y! ?+ h. x4 o6 G
Name := sprint ("OutPut_Line",m); --生产线名称
% @: X1 O' M4 l Obj := str_to_obj(Name); --转换成对象变量
5 r- H2 ?! R8 ` Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法, z$ D2 u5 b+ N; n( o. v
If m>1 then --第二条线要计算产出率" r6 o& ^& D; }8 t* i( r3 y0 U8 f
Name:=Sprint("OutPut_Line",m); --产出率
8 U, A4 D# g& R: f Obj :=str_to_obj(Name); --转换成对象变量
( s8 B* p& Z7 U9 c, d Obj.val := n*100/OutPut_Line1; --计算产出率
& r6 u8 N7 C9 \ y: q \* O9 n end;
2 v: l7 U6 Q. ^6 I5 S$ q: V8 ^0 P+ I) J0 }5 N2 @# E% Y _5 ^, J
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
8 U% B3 l; \. b) d例如Obj := str_to_obj(“coat”);
0 r( X1 K* Q. {7 x' ~% [; B2 [ |