- 博客(6)
- 收藏
- 关注
RSS订阅原创 delphi动态获取点击的MenuItem
procedure TForm1.OnClick(Sender: TObject); begin if Sender is TButton then begin if TButton(Sender).Name = ‘button1’ then .. . else if TButton(Sender).Name = ‘button2’ then
2017-09-14 18:28:26
941
原创 delphi 中StringList中遇到的坑
代码如下：const cSql = 'select * from [%s$]';var FileName : string; flag : Boolean; _TableList,AData: TStringList; _TableName,str1 : string; arr1 : array of string; _Index,k,i : Inte
2017-09-12 14:47:08
2915
1
原创 cxGrid.OptionsView
OptionsViewBandCaptionsInColumnAlternateCaption:是否允许在列里修改Band标题BandHeaderEndEllipsis:列标题超出范围后，在列的末尾显示省略号BandHeaderLineCount:带头显示行数ExpandButtonsForEmptyDetails:FixedBandSeparatorColor:固定Band列和非固定Band列之间
2017-09-11 14:10:09
347
原创 delphi利用ADO读取Excel 显示在cxgrid
先上代码，不成功的可以在下面评论unit ADOLoadExcel;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataSto
2017-09-08 17:10:38
2396
1
原创 Delphi常用
//创建Excel应用对象ExcelAPP:=CreateOleObject('Excel.Application');//计算有数据的列总数ExcelApp.worksheets[1].UsedRange.Rows.Count//计算有数据的行总数ExcelApp.WorkSheets[1].UsedRange.Columns.Count//取excel单元格的值ExcelApp....
2017-09-05 10:40:46
347
原创 Delphi从Excel读取数据存入数据库Demo
代码如下：{Excel to Delphi to SqlServer}unit ExcelLoad;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ComObj, dxSkinsCore, dxSkinBlack, dxSki
2017-09-05 09:42:48
2758
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人