delphi
文章平均质量分 69
百炼成钢百忍成佛
这个作者很懒,什么都没留下…
展开
-
Delphi : 分割字符串string,取出截取中间字符串
Delphi : 分割字符串string,取出截取中间字符串 (2012-05-17 09:50:26)标签: it分类: 软件_SoftwareFunction FindStr(BegSprStr,EdSpStr:String;var Source:String):String;varBegStr1Len,EdS转载 2017-03-30 14:37:23 · 8450 阅读 · 1 评论 -
Delphi打开外部程序或文件
WinAPI: ShellExecute - 打开外部程序或文件ShellExecute( hWnd:HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如:open、print} FileName:PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文转载 2012-07-12 17:12:02 · 992 阅读 · 0 评论 -
ShellExecute的各种用法
一、利用系统默认的邮件收发器发送电子邮件Uses ..., ShellAPI; Var lpHwnd: HWND; lpOperation, lpFile, lpParameters, lpDirectory: String; Begin lpHwnd:= GetDesktopWindow(); lpOperation:= 'open'; lpFile:转载 2012-07-12 17:15:35 · 1421 阅读 · 0 评论 -
delphi 删除目录和创建目录,临时文件夹
获取用户当前的Windows临时文件夹function GetWinTempPath: string;varTempDir: array[0..255] of char;beginGetTempPath(255, @TempDir);Result := strPas(TempDir);end;删除目录:(目录里有东西也一样删)(shellapi)function转载 2012-07-12 22:54:44 · 1451 阅读 · 0 评论 -
导入Excel数值读不到,找不到可安装的 ISAM错误
最近在做一个导入Excel数据到数据库表中对应字段的功能,一开始做的时候,也没有什么困难,做的还比较顺利,但是在接下去测试过程中,却遇到了一些很棘手的问题,疯狂的试验,在网上不停的搜索,有不少人也有相同的问题,但却没有一个把问题解决清楚了,即然自己解决了,就把解决问题的过程和原因记下来,与大家一同分享. 导入EXCEL的思路来自己客户的需求,客户需要从EXCEL中导入一些基础资料,来初始化转载 2012-10-07 10:11:52 · 966 阅读 · 0 评论 -
EXCEL sql 导入
procedure TForm1.Button1Click(Sender: TObject); var sqlstr,connstr,sheetName,filename:string;begin FileName :='d:\d.xls' ;//EXCel文件名 SheetName :='sheet1' ; //ExceL表名 ADOQuery1.Close ;转载 2012-10-07 11:36:46 · 648 阅读 · 0 评论 -
Delphi excel导入到数据库
uses ComObj; procedure TMemo_form_form.N5Click(Sender: TObject);var ExcelApp: Variant;//EXCEL打开对象 link:string; i:integer;begin if dlgOpen1.Execute then begin link:=dlgOpen1.转载 2012-09-24 18:17:02 · 2412 阅读 · 0 评论 -
Delphi Excel导入 的通用程序
procedure TForm1.btnClick(Sender: TObject);begin OpenDialog1.Title := '请选择正确的excel文件'; OpenDialog1.Filter := 'Excel(*.xls)|*.xls'; if OpenDialog1.Execute then edit1.Text := OpenDialog1.F转载 2012-09-24 18:19:41 · 1403 阅读 · 0 评论 -
Delphi Excel导入 的通用程序
步骤:1 连excel(自己知道其格式,最好是没个字段在数据一一对应)2 读excel数据,填入到数据库我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据,如果有,就不再导入该数据(避免重复),你可以参考下procedure TForm_qyxxcx.BitBtn2Click(Sender: TObject);VAR I,J:INTE转载 2012-09-24 18:20:30 · 8614 阅读 · 0 评论 -
DELPHI 小结
//十六进制(S)-->>十进制(I) [重写:Jey]function hextoint(s: string): Integer; begin //$代表16进制 Result:=StrToInt('$'+s);end;//十进制转换为二进制字符串 [重写:Jey]function inttoBin(i: integer): string;转载 2012-07-12 17:03:27 · 4940 阅读 · 0 评论 -
一些DELPHI的函数
{============================================================= 功 能: 网络函数库 ==============================================================}unit Net; interface uses SysUtils ,Windows ,d转载 2012-06-28 19:00:46 · 1498 阅读 · 0 评论 -
给DBGrid添加鼠标滚动事件
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids;type TForm1 = class(TForm) DBGrid1: TDBGr转载 2012-06-20 14:50:43 · 581 阅读 · 0 评论 -
DBGridEh使用
定制网格标题 复杂标题 TDBGridEh 允许在多列上创建标题,设置 DBGridEh.UseMultiTitle 属性为 True 并且填充字段的标签或列标题的标题,可以使用下面的规则:字段标签中的文本部分或列标题必须由几部分组成,并且用 "|" 分割,几个列的每一个通用部分都设置为相同。其它字段或标题必须在相应的部分包含同样的文本。例如:Field1.DisplayLab转载 2012-07-06 13:38:49 · 3814 阅读 · 0 评论 -
想成为软件架构师的人都应该明白的事情
关系技能修炼篇01. “技术”不能让一个企业运转起来,而“关系”能。----Patricia Cripp02. 成功公式的一个最重要因素就是要明白如何与人相处。----美国总统西奥多·罗斯福03. 我确信再也没有什么事情比雇佣人并开发认得潜能更重要了。最终,你是靠人来决胜,而不是靠战略。----Larry Bossidy04. 如果你想让某个人与你为敌,只要告诉他“是你转载 2012-07-06 12:15:13 · 9403 阅读 · 0 评论 -
elphi key值表
delphi key值表virtual key 名称 对应的键盘或鼠标VK_LBUTTON01Left mouse buttonVK_RBUTTON02Right mouse buttonVK_CANCEL03Control-break processingVK_MBUT转载 2012-07-08 00:20:08 · 730 阅读 · 0 评论 -
Delphi TQuery 的Locate用法
Help里的解释function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;KeyFields: is a string containing a semicolon-delimited list of field names on which to转载 2012-07-09 11:20:42 · 9046 阅读 · 1 评论 -
防止程序被重复执行
防止程序被重复执行(第一法)Windows95的程序一般都可以重复执行,例如你按下WIN+E组合键即启动资 源管理器,如果再按WIN+E组合键又会出现一个资源管理器,这两个程序互不干 扰。有时候你可以需要制作这样一个程序:当该程序已经执行时,若用户企图 再次执行该程序则只会激活那个已执行的程序,而不是又出现一个副本。 完成这个目的的核心就是要在程序启动时查找该程序是否已经运转载 2012-07-09 11:24:25 · 811 阅读 · 0 评论 -
Delphi常用代码汇总
◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:var x转载 2012-06-28 17:12:03 · 2141 阅读 · 0 评论 -
DELPHI 中 Window 消息大全使用详解
Window 消息大全使用详解导读: Delphi是Borland公司的一种面向对象的可视化软件开发工具。 Delphi集中了Visual C++和Visual Basic两者的优点:容易上手、功能强大,特别是在界面设计、数据库编程、网络编程方面更有其独特的优势。 Delphi中的消息 消息是Windows发出的一个通知,它告诉应用程序某个事件发生了。在Delphi中转载 2012-06-28 18:34:02 · 4650 阅读 · 0 评论 -
delphi计算时间差
DaysBetween()函数可以实现,函数原型:(使用时在单元接口部分引用 DateUtils 单元)function TForm1.DaysBetween(Date1, Date2: TDateTime): integer;begin Result := Trunc(Date2) - Trunc(Date1) + 1; if Result < 0 then Result := 0;转载 2012-11-13 12:15:48 · 16241 阅读 · 0 评论 -
YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间
DateUtils.YearsBetween();DateUtils.MonthsBetween();DateUtils.WeeksBetween();DateUtils.DaysBetween();DateUtils.HoursBetween();DateUtils.MinutesBetween();DateUtils.SecondsBetween();DateUti转载 2012-11-30 08:31:24 · 2493 阅读 · 0 评论 -
delphi自动调整combobox下拉列表宽度
在combobox所在的窗口的Formshow事件里调用即可[delphi] view plaincopyprocedure SetComboBoxListWidth( AComboBox: TComboBox ); var i: Integer; nMaxLen, nMinWidth: integer;转载 2014-09-01 13:24:58 · 2712 阅读 · 0 评论 -
Delphi对Excel的所有操作
学完这个你就成为excel高手了!(Delphi对Excel的所有操作)逐个试试! 一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口: ExcelApp.Visi转载 2015-01-27 11:40:57 · 6309 阅读 · 0 评论 -
Delphi里如何保存并关闭excel
procedure TForm1.Button6Click(Sender: TObject);var xlstest, thesheet:Variant;begin try xlstest:=CreateOleObject('Excel.Application'); except Exit; end;转载 2015-01-27 15:23:14 · 7658 阅读 · 0 评论 -
Delphi中DLL的创建和使用
Delphi中DLL的创建和使用 1.DLL简介; 2.调用DLL; 3.创建DLL; 4.两个技巧; 5.初始化; 6.例外处理。 1、DLL简介 DLL是Dynamic-Link Libraries(动态链接库)的缩写,库里面是一些可执行的模块以及资源(如位图、图标等)。可以认为DLL和EXE基本上是一回事,只是转载 2014-12-26 16:07:21 · 685 阅读 · 0 评论 -
Delphi开发WebService给ASP.NET调用
说明:1、本文档分3个部分,分别为:用Delphi编写WebService在IIS下部署WebService在ASP.NET中调用webservice2、开发环境为Windows XP SP2、Delphi 7.0、IIS 5.1、VS 2008(C#) 一、用Delphi编写WebService第1步:File → New → Ot转载 2015-02-06 18:18:08 · 853 阅读 · 0 评论 -
用DELPHI中实现RAR文件解压到指定一目录
一个RAR压缩文件,用DELPHI编的程序打开它并解压到某一目录,怎么实现的?自己搞定了例子:winrar.exe e -y C:\WINDOWS\Desktop\ghost.rar d:\但新的问题出来了,如果在解压过程中用户终止了解压,我怎么在程序中判断解压是否顺利完成了的!winrar 异常终止一个解压进程会发出异常消息吗?自己又查到了:AR 成功操作后返回 0转载 2016-05-06 13:39:36 · 1747 阅读 · 0 评论 -
XlLineStyle 枚举 (Excel)
XlLineStyle 枚举 (Excel)Office 2013指定边框的线条样式。(https://msdn.microsoft.com/ZH-CN/library/ff821622.aspx)名称值说明xlContinuous1实转载 2016-06-03 17:03:31 · 3216 阅读 · 0 评论 -
delphi常用日期函数
Day 开头的函数 使用单元:uses DateUtils●function DateOf(const AValue: TDateTime): TDateTime;描述:使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。例如:showmessage(DateTimetostr(dat转载 2016-06-03 17:21:15 · 468 阅读 · 0 评论 -
delphi中SQL避免非法字符,单引号(')出错的三种方法
由于 ' (单引号)是SQL的标准字符符号,所以在SQL语句中间遇到 ' 时要做特殊处理。1. 使用 QuotedStr 函数QuotedStr的作用是使字符串包含单引号: 在字符的前后加上( ')号,因为在DELPHI中字符赋值是需要引号的比如 CommandText := CommandText + QuotedStr(Edit1.Text); Sql转载 2014-04-01 11:17:44 · 3683 阅读 · 0 评论 -
VCLSkin
1. VCLSkin综述 VCLSkin是一个能让Delphi法度变得很是摩登的控件包. 它容许容许软件开辟人员不消批改法度代码便把软件界面变得很是摩登。它的美化支撑窗体和控件和菜单。VCLSkin同时也供给了多量高质量的skin(皮肤)让你应用于你的法度。2. VCLSkin特点 VCLSkin是一个用于让用户的法度界面加倍摩登的扩大控件。 它容许转载 2013-08-23 17:05:20 · 806 阅读 · 0 评论 -
【转】delphi程序只允许运行一个实例的三种方法:
一、 创建互斥对象 在工程project1.dpr中创建互斥对象Program project1Uses Windows,Form,FrmMain in 'FrmMain.pas' {MainForm}; {$R *.res} var hAppMutex: THandle; //声明互斥变量 begin转载 2012-12-05 11:15:09 · 8422 阅读 · 0 评论 -
get / set the default printer
get / set the default printer? uses Printers, Messages; function GetDefaultPrinter: string; var ResStr: array[0..255] of Char; begin GetProfileString('Windows', 'device', '',转载 2012-12-23 00:24:11 · 971 阅读 · 0 评论 -
delhpi MD5生成
效果如下图: 调用单元文件: Unit1.pas[delphi] view plaincopyunit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphi转载 2013-05-15 12:19:54 · 665 阅读 · 0 评论 -
delphi 更改DBGrid 颜色技巧
1、根据条件更改某一单元格的颜色procedure TMainFrm.First_DGDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if DM.FirstListStatus.AsStrin转载 2013-06-05 08:20:47 · 691 阅读 · 0 评论 -
C# 导出和导入excel
#region 导出Excel /// /// 导出Excel /// /// 请求的页面this /// 导出的数据源 /// 保存文件名称 /// 布尔值 public bool ExportExcel(Page page, DataTable dataTabl转载 2013-06-05 08:21:39 · 657 阅读 · 0 评论 -
取网卡地址
uses NB30; function GetMACAdress: string; var NCB: PNCB; Adapter: PAdapterStatus; URetCode: PChar; RetCode: char; I: integer; Lenum: PlanaEnum; _SystemID: string;转载 2013-08-20 14:32:08 · 735 阅读 · 0 评论 -
DELPHI获取网卡MAC地址 转
1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.转载 2013-08-20 17:33:37 · 4047 阅读 · 0 评论 -
md5
在Delphi2010及上以版本中,可以用TIdHashMessageDigest5对字符和流进行MD5加密,MD5加密是不可逆的,即不能解密,银行系统用户密码就是MD5加密,如果您的密码丢失,只能重设密码,原来的密码将废弃。 先引用单元:IdHashMessageDigest写如下函数: function MD5(const str:string):Str转载 2013-08-20 17:48:30 · 550 阅读 · 0 评论 -
ClientDataSet的用法
TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库驱动程序,基本上能满足单机"瘦"数据库应用程序的需要。 1.TClientDataSet的基本属性和方法介绍 1).FieldDefs: 字段定义列表属性 开发者可通过单击属性编辑器转载 2012-06-13 18:13:01 · 1157 阅读 · 0 评论