----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  Delphi

摘要:摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;E 阅读全文
posted @ 2018-10-03 18:20 向北方 阅读(7489) 评论(0) 推荐(1) 编辑

摘要:本程序在Delphi 2010上测试过,没有问题。 阅读全文
posted @ 2018-09-23 11:53 向北方 阅读(966) 评论(0) 推荐(0) 编辑

摘要:本文来自 爱好者8888 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/kpc2000/article/details/17066823?utm_source=copy 第一种方法delphi 快速导出excel uses ComObj,clipbrd; funct 阅读全文
posted @ 2018-09-23 00:35 向北方 阅读(9412) 评论(0) 推荐(0) 编辑

摘要:在delphi和intel fortran下实证过。 阅读全文
posted @ 2018-09-15 21:07 向北方 阅读(469) 评论(0) 推荐(0) 编辑

摘要:Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; ... 阅读全文
posted @ 2018-09-11 21:22 向北方 阅读(1504) 评论(0) 推荐(0) 编辑

摘要:Format('x=%d', [12]); //'x=12' //最普通Format('x=%3d', [12]); //'x= 12' //指定宽度Format('x=%f', [12.0]); //'x=12.00' //浮点数Format('x=%.3f', [12.0]); //'x=12. 阅读全文
posted @ 2018-08-04 21:10 向北方 阅读(6187) 评论(0) 推荐(0) 编辑

摘要:Delphi XE中泛型数组的使用范例,下面的范例简单的使用了泛型字符串数组,如用 TArray 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点). 阅读全文
posted @ 2017-04-26 23:09 向北方 阅读(2448) 评论(0) 推荐(0) 编辑

摘要:第一步:关闭debug infomation. 打开工程后,依次点击project--option--delphi compiler--linking 将右边Debug information改为False 第二步: 关闭RTTi. 点击Project--view source.在第二行添加编译开关 阅读全文
posted @ 2017-04-23 20:03 向北方 阅读(3703) 评论(0) 推荐(0) 编辑

摘要:一般用在比较费时的循环中,往往导致应用程序没有响应,此时在比较费时的程序体中加入Application.ProcessMessages即可解决,该语句的作用是检查并先处理消息队列中的其他消息。 例如,在如下的程序中,加入该语句,则在程序运行过程中可以随便拖动窗口。 该程序在Delphi 10.1下测 阅读全文
posted @ 2017-03-04 22:15 向北方 阅读(504) 评论(0) 推荐(0) 编辑

摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
posted @ 2017-01-04 20:00 向北方 阅读(416) 评论(0) 推荐(0) 编辑

摘要:转自:http://blog.csdn.net/zwzgood/article/details/4250458 阅读全文
posted @ 2016-12-08 09:37 向北方 阅读(2571) 评论(0) 推荐(0) 编辑

摘要:Delphi中编写的Dll: 其中涉及到三个输出函数:一个输出的变量为整数,一个为浮点数,另一个为字符串。 C#中调用该Dll: 注意:在C#的using部分必须添加“using System.Runtime.InteropServices”。 程序运行结果为: 本程序在delphi2010和Sha 阅读全文
posted @ 2016-12-03 11:14 向北方 阅读(3216) 评论(1) 推荐(0) 编辑

摘要:procedure TForm23.Button4Click(Sender: TObject); var pstr:Pchar; mestr,Str1:string; FS:TFilestream; meint,PoStr,I,LenStr:integer; Fpos:Int64; TT,IsDay:Boolean; Liststr:TStringList; begin if not Sel... 阅读全文
posted @ 2016-11-17 16:33 向北方 阅读(3645) 评论(0) 推荐(0) 编辑

摘要:http://bbs.csdn.net/topics/390513469/ 以上是创建的一个多线程 我在另外一个单元里Unit1有一个函数 现在要把Myfun放到多线程里执行,怎么传递参数呢? 谁有这样的Demo给一个我,帮我讲解一下,感激不尽!我看到网上说有结构体,因本人才学Delphi没多久,不 阅读全文
posted @ 2016-04-24 23:38 向北方 阅读(6189) 评论(0) 推荐(1) 编辑

摘要:该例程在Delphi XE7下通过。 阅读全文
posted @ 2016-03-17 23:15 向北方 阅读(5210) 评论(0) 推荐(0) 编辑

摘要:1.添加 uses system.IniFiles 2.实例代码: 本例程在delphi XE6下通过。 阅读全文
posted @ 2016-03-16 21:54 向北方 阅读(568) 评论(0) 推荐(0) 编辑

摘要:function GetApplicationVersion:String; // Added 取得程序版本号 var FileName:String; InfoSize,Wnd:DWORD; VerBuf:Pointer; VerInfo:^VS_FIXEDFILEINFO; begin Resu 阅读全文
posted @ 2016-02-04 20:30 向北方 阅读(1631) 评论(0) 推荐(0) 编辑

摘要:在批处理最后增加了启动Delphi的命令。将批处理和Delphi放在同一目录即可。?12345678910111213141516171819202122@ECHOOFFREMEntertempdirectory.%TEMP:~0,2%CD%TEMP%REMTrydeletepreviouslycr... 阅读全文
posted @ 2015-12-31 22:46 向北方 阅读(2985) 评论(0) 推荐(0) 编辑

摘要:XLSReadWrite控件简介: 一个你需要的,能在Delphi和.NET下访问Excel文件的完美解决方案。 一个经典的读写Excel的控件,对于使用Excel 开发很有帮助官方网站:http://www.axolot.com/components/index.htm功能描述 About F... 阅读全文
posted @ 2015-12-13 14:29 向北方 阅读(520) 评论(0) 推荐(0) 编辑

摘要:一、下载官方下载网址:http://www.axolot.com/components/download.htm从这里可以下载到从Delphi5到DelphiXE全部支持的版本。二、软件安装下载下来的文件是exe格式,可以直接安装,一路next即可。按照默认安装,会在:C:\Documents an... 阅读全文
posted @ 2015-12-13 14:27 向北方 阅读(376) 评论(0) 推荐(0) 编辑