本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
: P& w q& ]+ q( o* k& X0 Q+ d1 x- n/ |; v8 z, C. m' Q
各位老师好!
# A V* @6 U! \7 l. `* c4 z 我在使用plant simulation时出现错误$ T: c& Y: f% T
源码如下5 ?" C1 |. Z! j5 ?/ N# N, P
- r5 t/ E; N8 Y8 z& e. v: u
var m,n :integer;3 V8 s7 v4 ^# {- D
var Name :string;2 A0 {, Y! U: p7 A, {9 V
var Obj :object;
' N" M# T5 M) n { ^7 c- `
6 j. S: Z+ i/ h/ V8 s" I/ E; v m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;
% _6 s; M" h$ L( \' Z4 k Name := sprint ("OutPut_Line",m); --生产线名称" ?: X% |8 N' D/ h4 v8 x+ G) T
Obj := str_to_obj(Name); --转换成对象变量
v1 T2 j. k u& `/ c* Z n" _ Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法. k) f3 a7 k0 C
If m>1 then --第二条线要计算产出率7 Q# a' Q/ S' j$ C
Name:=Sprint("OutPut_Line",m); --产出率# W- o. \" W4 I3 U8 u
Obj :=str_to_obj(Name); --转换成对象变量
1 x% g6 N# b5 j' e Obj.val := n*100/OutPut_Line1; --计算产出率, J! ]3 D, U2 C' c# H: G
end;# x$ ^8 a* @' m
% V% ^3 R6 ]/ u9 u. k* [经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,7 b) q1 I" {) i
例如Obj := str_to_obj(“coat”); - a) K& l) k$ x
|