| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3268030
建立时间:2005年6月6日 |
| |
|
 [borland eco 技术]将eco类作为参数传递
软件技术
吕向阳 发表于 2006/5/12 14:38:23 |
| 自己程序中的两段,经过反复试验得之,备忘.
procedure FORMGOODSELECT.DataGrid1_DoubleClick(sender: System.Object; e: System.EventArgs);var xx:ielement;begin if datagrid1.CurrentRowIndex<0 then exit;
xx:=ehgoods.Element.GetAsCollection()[datagrid1.CurrentRowIndex];
if goodsarr.IndexOf(xx)>=0 then exit;
goodsarr.Add(xx); //将选定对象加入到列表中 dispgoodlist; //显示列表对象到列表框end;
procedure FORMGOODSELECT.dispgoodlist;var i:integer; xx,oclresult:ielement; str1,str2,str3:string; yy:goods;begin listbox1.Items.Clear; for I := 0 to goodsarr.Count - 1 do begin XX:=GOODSARR[I] AS IELEMENT; yy:=goods(xx.asobject); // 原来错就错在这, element对象用asobject再转化为goods对象. //oclresult:=fecospace.OclService.Evaluate(xx,'self.name',nil);// str2:=string(oclresult.AsObject); 这是刚开始始终调试不成的一段,只好用了oclservice,事实上,直接用的只法最简单. str2:=yy.name;
str1:=yy.id;
str3:=convert.ToString(yy.price); listbox1.Items.Add(str1+' '+str2+' '+str3); end;end; |
|
|