Delphi使用SpreadSheet

本文介绍如何在Delphi7中使用DevExpress的ExpressSpreadSheet组件v1.38版本进行电子表格开发,包括安装步骤、基本操作如合并单元格、单元格编辑及样式设置、Excel文件读写等。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1、开发环境

以Delphi7为例,使用DevExpress套件中的ExpressSpreadSheet组件1.38版本进行开发设计。

2、控件安装

控件源码:

DevExpress.ExpressSpreadSheet.v1.38.for.Delphi.BCB.Full.Source-SSG.rar

这个源码在优快云上也有,请直接点击下面的超链接自行下载:

DevExpress.ExpressSpreadSheet.v1.38.for.Delphi.BCB源代码-Delphi文档类资源-优快云下载

请解压缩之后,按照如下控件包的顺序依次安装,并设置Delphi编译路径。

顺序控件名称操作帮助文件
1XP Theme Manager编译
2ExpressGDI+ Library编译
3ExpressLibrary编译+安装
4ExpressSpreadSheet编译+安装

其中帮助采用的还是比较原始的hlp格式,如果您的操作系统是win10/8/7等,只要出不来帮助,就请按照这个文章进行设置:

[]

3、控件使用

学习资料请参考https://blog.youkuaiyun.com/hotmee/article/category/5948851,这个大神写了几篇相关文章,不过都是C#的,需要自己研究对照。

<span style="color: red">最重要的学习资料就是控件源码路径下的帮助hlp文件,务必要详细阅读。</span>

3.1 合并单元格

var
  st : TcxSSBookSheet;
  r : TRect;
begin
  st := book.Pages[0];
  r.Left := 1;  //第二列,0起始
  r.Top := 1;   //第二行
  r.Right := 5; //第六列
  r.Bottom := 2;//第三行
  st.SetMergedState(r, True); //第二个参数true标识合并单元格
end;

3.2 单元格操作

var
  st : TcxSSBookSheet;
  cell1, cell2 : TcxSSCellObject;
begin
  st := book.Pages[0];

  cell1 := st.GetCellObject(0, 0); //A1
  cell1.Text := '1';
  cell1 := st.GetCellObject(1, 0); //B1
  cell1.Text := '2';
  cell1 := st.GetCellObject(2, 0); //C1
  cell1.SetCellText('=A1+B1', True); //公式,第二个参数默认为False,如果为True可以重新计算

  cell2 := st.GetCellObject(1, 1); //C2
  cell2.SetCellText(cell1.Text); //TEXT方式获取到的是单元格的公式
  cell2 := st.GetCellObject(1, 2); //C3
  cell2.SetCellText(cell1.CellValue); //CellValue获取的是单元格的值

  cell2 := st.GetCellObject(2, 2); //C3
  cell2.SetCellText('杨雨田');
  //画左右上下四条线
  cell2.Style.Borders.Left.Style := lsMedium;
  cell2.Style.Borders.Right.Style := lsThin;
  cell2.Style.Borders.Top.Style := lsThick;
  cell2.Style.Borders.Bottom.Style := lsDouble;
  {
    lsDefault,  lsThin, lsMedium, lsDashed, lsDotted,
    lsThick,  lsDouble, lsHair, lsMediumDashed, lsDashDot, lsMediumDashDot,
    lsDashDotDot, lsMediumDashDotDot, lsSlantedDashDot, lsNone
  }
  
  //设置背景色,前景色等
  cell2.Style.Brush.AssignInfo(fsSolid, 2, 5);

  //设置字体
  cell2.Style.Font.AssignInfo('微软雅黑', 40, [fsBold], GB2312_CHARSET, 5);

  //对齐
  cell2.Style.HorzTextAlign := haRIGHT; {haGENERAL, haLEFT, haCENTER, haRIGHT, haFILL, haJUSTIFY}
  cell2.Style.VertTextAlign := vaBOTTOM; {vaTOP, vaCENTER, vaBOTTOM, vaJUSTIFY}
  
  //设置行高度
  st.Rows.Size[0] := 120;
  st.Rows.Size[1] := 80;
  st.Rows.Size[2] := 150;

  //设置列宽度
  st.Cols.Size[0] := 120;
  st.Cols.Size[1] := 80;
  st.Cols.Size[2] := 200;
end;

3.3 加载EXCEL/保存EXCEL

begin
  book.SaveToFile('e:\abc.xlsx'); //导出
  book.LoadFromFile('e:\abc.xlsx'); //导入
end;

3.4 删除Sheet/增加Sheet

procedure Del()
begin
  book.DeleteSheet(0);
end;

procedure Add()
begin
  book.AddSheetPage('第一页' + FormatDateTime('yyyy-mm-dd hh:nn:ss', Now));
end;

3.5 关于打印

还没有找到好用的打印方法,暂时可以直接通过ShellExecute执行xls文件的print方法输出到打印机。



 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

蝈蝈(GuoGuo)

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值