Delphi常用

来源:互联网 发布:linux 脚本 sleep 编辑:程序博客网 时间:2024/06/05 09:25
//创建Excel应用对象ExcelAPP:=CreateOleObject('Excel.Application');//计算有数据的列总数ExcelApp.worksheets[1].UsedRange.Rows.Count//计算有数据的行总数ExcelApp.WorkSheets[1].UsedRange.Columns.Count//取excel单元格的值ExcelApp.worksheets[1].cells[i,j].text//退出ExcelApp.Quit;

CreateOleObject源自ComObj

ADO:

//游标指向第一行数据Qry.First;//游标指向下一行数据Qry.Next;//标识游标是否指向最后一行下面那行Qry.Eof;//返回查询返回数据总条数Qry.RecordCount//取记录第1行的值Qry.Fields[0].Value;//取列名为‘name’的那一行数据的值Qry.FieldByName('name').Value//取表的第i列的列名Qry.Fields[i].FieldName

cxGrid:

//在cxGrid新建一个TcxGridColumnTcxGridTableView.CreateColumn//删除所有Columncxgrdtblvw1.ClearItems;//删除cxGrid中所有记录for I := cxgrdtblvw1.DataController.RecordCount -1 downto 0 do   begin     cxgrdtblvw1.DataController.DeleteRecord(I);   end;

cxTreeList:

//展开所有子项lst1.FullExpand;//收缩所有子项lst1.FullCollapse;

快捷键记录
Ctrl+\ 打开ouput文件目录

原创粉丝点击