| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3273571
建立时间:2005年6月6日 |
| |
|
 [硬件教学资料]variablehandle的使用代码备忘
软件技术
吕向阳 发表于 2007/10/11 13:01:22 |
|
//In page_load vhRecursosSeleccionados.EcoSpace := fEcoSpace; vhRecursosSeleccionados.Element.AsObject := ArrayList.Create;
//and then procedure TfrmTarea.btnEjecutar_Click(sender: System.Object; e: System.EventArgs); var dgi:DataGridItem; cb:CheckBox; r:TRecurso; Id:String; begin IObjectList(vhRecursosSeleccionados.Element).Clear;
for dgi in dgRecursos.Items do begin if CheckBox(dgi.FindControl('Chk')).Checked then begin Id := dgRecursos.DataKeys[dgi.ItemIndex].ToString; r := ObjectForId(Id).AsObject as TRecurso; IObjectList(vhRecursosSeleccionados.Element).Add(r.AsIObject); end; end; DataBind; end; |
|
|