delphi中TStringGrid数据的导出

没什么好说的,就是一个导出Excel的功能,代码如下:

function TExportToExcel.Export(SGrid_List: TStringGrid;filename:string;out Errstr:string): Boolean;
varexcelapp:Variant;page:Variant;i,j:Integer;savedialog:TSaveDialog;strsavefile:string;
begintryresult := false;savedialog := TSaveDialog.Create(self);trysavedialog.FileName := filename;savedialog.Filter := '*.xls';if not savedialog.Execute() thenexit;strsavefile := savedialog.FileName;Screen.Cursor:=crhourglass; //屏幕指针形状excelapp := CreateOleObject('excel.application');excelapp.workbooks.add;excelapp.workbooks[1].worksheets[1].name:=filename;page:=excelapp.workbooks[1].worksheets[filename];for i:= 0 to SGrid_List.RowCount-2 dobegin//第一列没有数据,不用for j:=1 to SGrid_List.ColCount-1 dobeginpage.cells[i+1,j]:= SGrid_List.Cells[j,i];end;end;excelapp.activeworkbook.saveas(strsavefile);Application.ProcessMessages;excelapp.application.quit;result := true;finallysavedialog.Free;Screen.Cursor:=crDefault;end;excepton E:Exception dobeginErrstr := e.Message;result := false;end;end;
end;

 

转载于:https://www.cnblogs.com/jinshizuofei/p/3373150.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/400077.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

常用插件整理

easydialog,简单易用的模态对话框弹窗 http://www.h-ui.net/easydialog-v2.0/index.html superslide,非常好用的电脑端滚动切换等特效插件 http://www.superslide2.com/ swiper,非常好用且完善的手机端滚动触摸滑动特效插件 http://www.swipe…

【电路补习笔记】8、稳压电路 —— 线性电源及LDO

目录有名的电源芯片品牌DCDC电源分类开关电源vs线性稳压器线性电源参数线性电源工作原理集成稳压器78/79系列(固定输出电压)正、负对称输出两组电源的稳压电路扩展输出电压扩大输出电流LM317/LM337(可调输出电压)正、负对称输出两…

ajax代码整理

$.ajax({ type: "post", 【以POST或GET的方式请求。默认GET。PUT和DELETE也可以用,有的浏览器不支持】 url: url, 【请求的目的地址,须是一个字符串。】 contentType: "application/json", 【以哪种数据类型发送请求】 data: data, …

创建一个简单的WCF程序

为了使读者对基于WCF的编程模型有一个直观的映像,我将带领读者一步一步地创建一个完整的WCF应用。本应用功能虽然简单,但它涵盖了一个完整WCF应用的基本结构。对那些对WCF不是很了解的读者来说,这个例子将带领你正式进入WCF的世界。 在这个例…

交换机应用之端口模式(access、trunk和hybird)、是否标记(tag、untag)、端口缺省vlan(pvid、native id)...

一、概述打不打标记Tag,untag以及交换机的各种端口模式是网络工程技术人员调试交换机时接触最多的概念了。标记tag就是指VLAN的标签,数据包属于哪个VLAN的。交换机三种端口模式Access vlan、Trunk vlan和Hybrid vlan三种,即以太网端口有三种链…

深圳IO —— 一个汇编编程小游戏

目录简介数据手册接口简单 I/OXBus简单 I/O 对比 XBus语言参考程序结构注释标签寄存器accdatp0、p1、x0、x1、x2、x3null 伪寄存器指令操作数确保进行足够的睡眠 (slp)!基本指令算法指令条件指令隐藏指令游戏界面DIY版本: 简介 以下介绍摘自未来软件园 …

ubuntu所有php扩展php-7.0扩展列表

ubuntu所有php扩展php-7.0扩展列表 sudo apt-get install php7.0-bcmath sudo apt-get install php7.0-bz2 sudo apt-get install php7.0-calendar sudo apt-get install php7.0-ctype sudo apt-get install php7.0-curl sudo apt-get install php7.0-dom sudo ap…

unity shader 编辑器扩展类 ShaderGUI

这应该unity5才出的新功能了,今天看文档时刚巧看到了,就来尝试了一下。 效果如图: shader 的编辑器扩展分为2种方法: 是通过UnityEditor下的ShaderGUI类来实现的,形式比较近似于我们一般对unity编辑器的扩展方式。是通…

英语语法学习2--句子的成分

句子成份 词语和句子,就象是个人与家庭之间的关系一样,家庭是有个人组成的,家庭带来的幸福和责任都随着成员的增加而几何倍数的递增。 但是个人绝对不能脱离家庭。一个没有家庭概念的人注定活着没有什么意义。 现在我们聊一下,词语…

DataTables获取指定元素的行数据

https://www.cnblogs.com/hdwang/p/7126796.html 看上帖,没有看懂 看官网 https://datatables.net/examples/ajax/null_data_source.html 好像看懂,待测试。 响应式处理: https://datatables.net/extensions/responsive/ 实测代码 &l…

[LeetCode] Power of Two 判断2的次方数

Given an integer, write a function to determine if it is a power of two. Example 1: Input: 1 Output: true Example 2: Input: 16 Output: true Example 3: Input: 218 Output: false 这道题让我们判断一个数是否为2的次方数,而且要求时间和空间复杂度都为常数…

【电路补习笔记】9、电容式开关电源(电荷泵)

目录分类原理电荷泵基础开关电容稳压器的细调功能电荷泵的电压增益调节输出电容(Co)优点电容式开关稳压器减小纹波相关应用老师的主页:唐老师讲电赛 视频地址: 电源大师3——电容式开关电源(电荷泵)工作原理…

CPU 硬盘性能到底相差多少

本文以一个现代的、实际的个人电脑为对象,分析其中CPU(Intel Core 2 Duo 3.0GHz)以及各类子系统的运行速度——延迟和数据吞吐量。通过粗略的估算PC各个组件的相对运行速度,希望能给大家留下一个比较直观的印象。本文中的数据来自…

Datatables 构建响应式

https://datatables.net/extensions/responsive/

【电路补习笔记】10、电感式开关电源(BUCK 降压电路)

目录分类封装焊线式覆晶式开关电源三种基本的非隔离开关电源纹波(ripple)开关电源的元件构成有源开关肖特基二极管或快恢复二极管不使用普通硅二极管的原因电感电容分压电阻(输出电压设置)工作原理工作模式连续模式(co…

php中Session的生成机制、回收机制和存储机制探究

转载:http://www.jb51.net/article/53938.htm这篇文章主要介绍了php中Session的生成机制、回收机制和存储机制探究,可以帮助大家对Session有一个全面的了解,需要的朋友可以参考下1、php中session的生成机制我们先来分析一下PHP中是怎么生成一个session的。设计出session的目的是…

FFT(模板)

优美 这里写代码片 #include<cstdio> #include<cstring> #include<iostream> #include<cmath>using namespace std;const int N301000; const double piacos(-1.0); struct node{double x,y;node (double xx0,double yy0){xxx;yyy;} }; node a[N],b[N]…

iPhone使用CoreTelephony获得SIM卡网络运营商资讯和通话资料

注意要加头文件目录 /System/Library/Frameworks/CoreTelephony.framework/Headers 到 build 设置 Header Search Paths&#xff0c;并在使用到这些类中加头文件&#xff0c;例如1. #import "CTCarrier.h" 2. #import "CTTelephonyNetworkInfo.h" iOS 4.0 …

datatables隐藏列设置及获取隐藏列的值

https://blog.csdn.net/bingguang1993/article/details/84649674

wsl2 Ubuntu 18.04 安装 ROS

目录前期准备安装ROS初始化rosdep测试前期准备 WSL的安装见旧版 WSL 的手动安装步骤从步骤4开始弄。 图形界面安装见在WSL中使用GPU&#xff1a;WSL2 Ubuntu 18.04 CUDA Gnome图形界面环境配置 界面汉化见WSL-Ubuntu安装中文语言 这里使用鱼香ROS大佬的一键安装脚本&…