Delphi利用系统环境变量获取常用系统目录 //譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取: var s: string; begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS} end; 一些系统目录变量列表: --------变量-----------------------------,-------描述------------------------------------

本文来自 爱好者8888 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/kpc2000/article/details/17066823?utm_source=copy =================================================================================================== 第一种方法delphi 快速导出excel uses ComObj,clipbrd; funct

一; delphi 快速导出excel   uses ComObj,clipbrd;   function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog;

一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog; beg

来自:http://blog.csdn.net/zhdwjie/article/details/1490741 ------------------------------------------------------------------- 从99年学习delphi开始,我就被它的快速开发迷上了,那时候刚接触编程,对可视化开发特别来劲,原因嘛,不外乎是比C更快的实现啦,这几年来,从delphi的C/S到三层B/S,大大小小也写过一些软件,自认为这delphi也就这么些功能吧,自从最近偶得一

我们要实现的效果:     进入到这个页面后,输入要查询的条件,查询出药品表的数据,然后按下导出按钮 ,就会在服务器的一个目录下生成一个药品表的excel表格.  点击"导出"之后: 点击下载就能下载Excel表格,实现导出功能.       讲解如下:   还是分为三层: 1:Dao层     我们先看sql语句. 在PL/SQL写sql: select id, bm, mc, jx, gg, zhxs, scqymc, spmc,jyzt, zbjg, ('and dictinfo

第一种方法delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog; begin

//Dxdbgrid,则直接用SaveToexcel即可//使用 ExcelWithOdbc 控件function TDataModule1.GetDataToFile(DsData: TObject): Boolean; //用于将数据导入文件中var   DataSet: TCustomADODataSet;   FileName: string;   FileType: string;begin   if not ((DsData is TCustomADODataSet) or (DsD

POI功能比较强大,但是有些不常用功能比如插入特殊符号,不知道API怎么调用 Word里要插入复选框,首先想到的是POI有没有提供现成的API,搜了一番,貌似都说不直接支持 http://stackoverflow.com/questions/9732832/creating-word-document-from-a-template-using-java 也有说用图片替换的 一想到用POI操作图片比较复杂,就不想用了 于是想了一个大招,未选中的复选框和选中的复选框在Word里直接操作都是插入特

在 Firemonkey 提供了一个跨平台的函数 TPath.GetDownloadsPath 来取得该平台的下载目录,但是非常奇怪的是,在 Windows 平台下,取得的下载目录确是: C:\Users\<username>\AppData\Local (官方文件) 而不是 C:\Users\<username>\Downloads 也许 EMB 想的是 App 沙箱做法,但如果想要取得 C:\Users\<username>\Downloads 这个目录该如何做呢?

procedure TfrmTallageDetail.ToolButton1Click(Sender: TObject); var Xml: TXMLDocument; Rootbusiness,Rootgroup,Rootdata : IXMLNode; business,group,data: IXMLNode; begin //加入版本信息 '<?xml version="1.0" encoding="GBK" ?> ' Xml.Active :

这里所有程序均使用Delphi调用Windows 32 API方式实现,并不是使用VCL已经封装好的类实现的! (一)第一个窗口程序 01 创建第一个窗口.

var Str1, Str2: Array[..Max_Path]of Char;//开辟缓冲区 Str3: Array[..]of Char; begin GetWindowsDirectory(@Str1, );//调用API函数获取Windows目录信息 GetSystemDirectory(@Str2, );//调用API函数获取System目录信息 GetTempPath(, @Str3);//调用API函数获取Temp目录信息 end;

SelectDirectory 函数 通过显示一个对话框来让用户选择一个目录.注意:在使用前要在Uses 语句中添加包含FileCtrl 的说明.函数原型如下:function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options:

//导出Wordprocedure TFrm_Computing.ExportWord;varwordApp, WordDoc, WrdSelection, wrdtable, wrdtable1, cell: variant;strAdd: string;wdPar,wdRange:OleVariant;iCol, iRow, I, J: Integer; begin trywordApp := CreateOleObject('Word.Application');exceptApplica

<template> <div class="table-cooperte"> <el-table :data="tableData" stripe style="width: 100%" border ref="table" :span-method="objectSpanMethod" tooltip-effect="dark" :height=&quo

Var FExcel:OleVariant; //excel应用程序 FWorkBook :OleVariant; //工作表 Temsheet:OleVariant; //工作薄 FPicture:OleVariant;//图片 tmpstr:String; range:variant;//范围 i,j,TemInt:integer; TemFileName:String; real_american_price:Double; begin if (kind = '小米清单') or (kin

SelectDirectory 函数通过显示一个对话框来让用户选择一个目录.注意:在使用前要在Uses 语句中添加包含FileCtrl 的说明.函数原型如下:function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options: T

procedure CreatRepSheet(SheetName:String;PageSize,PageLay:Integer); {新建Excel工作簿.进行页面设置} begin {新建Excel工作簿} then begin ExlBook := ExlApp.Workbooks.Add; //ExlBook:=ExlApp.WorkBooks[].WorkSheets[]; ExlApp.ActiveSheet.Name:=SheetName; end; {if} {进行页面设置}

procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);var wordApp,WordDoc,WrdSelection:variant;strAdd:string;i,j,iRangeEnd,iStart,iEnd : integer;wdPar,wdRange:OleVariant;oShape, oChart,myCol: OleVariant;SumJHTonCount, SumWCTonCount, PJ