2017年7月10日
Delphi7文件操作常用函数
1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);：给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。 procedure TForm1.Button1Cl Read More
posted @ 2017-07-10 21:07 findumars Views(3971) Comments(0) Diggs(0)
设置InputBox等提示框的字体以及样式
InputBox等窗体的字体大小设置方法 Graphics.DefFontData.Height:=48; Graphics.DefFontData.Style:=[fsBold,fsItalic, fsUnderline]; inputbox('aa','aa','dd'); Graphics.D Read More
posted @ 2017-07-10 21:05 findumars Views(1537) Comments(0) Diggs(0)
delphi判断线程状态函数（使用GetExitCodeThread API函数去判断线程的句柄）
//判断线程是否释放//返回值：0-已释放；1-正在运行；2-已终止但未释放；//3-未建立或不存在 function CheckThreadFreed(aThread: TThread): Byte;var i: DWord; IsQuit: Boolean;begin if Assigned(a Read More
posted @ 2017-07-10 21:04 findumars Views(2455) Comments(0) Diggs(0)
split函数
type userarray=array of string;function split(s:string;dot:char):userarray; var str:userarray; i,j:integer; begin i:=1; j:=0; SetLength(str, 255); whi Read More
posted @ 2017-07-10 20:59 findumars Views(305) Comments(0) Diggs(0)
TCPClient组件和TCPServer组件的主要方法和属性
IdTCPClient属性1 : IOHandler 如果有相应的输入/输出操作,那么IOHandler相对应的组件或接口将提供一个虚拟/抽象的输入/输出接口给相应的网络连接2 : Intercept 如果有一个网络连接正在使用,那么Intercept 提供的组件或接口将可以拦截相应的网络数据流中的 Read More
posted @ 2017-07-10 20:58 findumars Views(1932) Comments(0) Diggs(0)
CreateThread传递多个参数的方法（利用结构体的参数指针）
很多朋友一直都在问CreateThread如何传递多个参数,CreateThread传递参数的方式是指针传递的，所以这里也可以利用指针来做！Demo 关键代码如下: type TfrmTestThread = class(TForm) Button1: TButton; procedure Butt Read More
posted @ 2017-07-10 20:56 findumars Views(2411) Comments(0) Diggs(0)
Delphi I/O Errors（几百种不同的错误）
The following are the Windows API (and former DOS) IO errors, which are also the IO errors often returned by Delphi programs, and which are generally Read More
posted @ 2017-07-10 20:51 findumars Views(3042) Comments(0) Diggs(0)
delphi Form属性设置 设置可实现窗体无最大化，并且不能拖大拖小（写一个WM_EXITSIZEMOVE的空函数）
以下设置可实现窗体无最大化，并且不能拖大拖小BorderIcon 设为 biMax[False] biHelp [False]BorderStyle 设为 bsSingle 参考 可以通过设置窗体的属性以及编程的方法,限制和控制窗体的变化。如让窗体不能最小化、最大化. 1.通过属性设置方法使用For Read More
posted @ 2017-07-10 20:49 findumars Views(1547) Comments(0) Diggs(0)
用Delphi将数据导入到Excel并控制Excel
一、调用Excel的方法：一般情况下有两种方法调用Excel：1、 直接使用Delphi自带的组件：在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。2、动态创建Excel文件：首先创建 Excel 对象，使用ComObj,Excel2 Read More
posted @ 2017-07-10 20:49 findumars Views(3238) Comments(0) Diggs(0)
Delphi 数据类型列表
转自http://www.cnblogs.com/del/archive/2007/12/04/982167.html Read More
posted @ 2017-07-10 20:47 findumars Views(10457) Comments(0) Diggs(0)
一个队列类的实现(比delphi自带的速度快70倍)(线程安全版本)
unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码 {$IFDEF MULTI_THREAD_QUEUE}uses Windows;{$ENDIF} type TsfQueue=clas Read More
posted @ 2017-07-10 20:28 findumars Views(2063) Comments(0) Diggs(0)
Delphi7下安装TMS component控件
1.启动delphi7。2.File-->Open Project ...打开TMS component 源目录下的“tmsd7.bpg”。 3.在打开的窗口列表中，依次在各选项上点击鼠标右键，选择“Install”。 4.将源目录下所有的pas文件、dfm文件及“tmsdefs.inc”文件拷贝到 Read More
posted @ 2017-07-10 20:24 findumars Views(1626) Comments(0) Diggs(0)