Delphi常用

//创建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新建一个TcxGridColumn
TcxGridTableView.CreateColumn
//删除所有Column
cxgrdtblvw1.ClearItems;
//删除cxGrid中所有记录
for I := cxgrdtblvw1.DataController.RecordCount -1 downto 0 do
   begin
     cxgrdtblvw1.DataController.DeleteRecord(I);
   end;
//cxGrid 列宽度自适应
cxgrdtblvw1.ApplyBestFit;
//清空cxgrid
cxgrdtblvw1.DataController.RecordCount := 0;

cxTreeList:

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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值