摘要：之前做一个程序，用ListBox读入一个文本文件，但文本中有空行，为了删除其中的空行，折腾了好长时间。 先给出一段代码给大家看var i:Integer;begin ListBox1.Items.LoadFromFile('data.txt'); for i:=0 to ListBox1.Count - 1 do begin if Trim(ListBox1.Items.Strings[i])='' Then ListBox1.Items.Delete(i); end;end; 相信不少人会这样写（包括我以前也是），特别是新手，但是这是行不通的，运行时给出 list index out of 阅读全文

摘要：在窗体的OnMouseDown事件中加入下面几行代码即可 If Button = mbleft Then begin ReleaseCapture; SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end; 若窗体的表面被别的控件履盖掉，则需要把上面的代码加入履盖的控件里面。 阅读全文

摘要：//声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}//举例:var arr: array[0..254] of Char;begin GetWindowText(Handle, @arr, SizeOf(arr)); ShowMessage(arr); {Form1}end;//标题文本个 阅读全文

摘要：//声明:GetClassName( hWnd: HWND; {指定窗口句柄} lpClassName: PChar; {缓冲区} nMaxCount: Integer {缓冲区大小}): Integer; {返回类名大小; 失败返回 0} //测试1: 新建一个工程, 主窗口的类名默认是 TForm1, 用程序获取一下看看var ps: array[0..254] of Char;begin GetClassName(Handle, ps, 255); ShowMessage(ps); {TForm1}end; //测试2: 看看 "计算器" 窗口的类名(先启动计算器)var 阅读全文

摘要：这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用首先有两个自定的转换函数：function myStrToHex(s:string):string; //字串转16进制var TmpStr:string; i:integer;begin TmpStr:=''; for i:=1 to Length(s)do TmpStr:=TmpStr+IntToHex(ord(s[i]),2); Result:=TmpStr;end;function myHexToStr(S:string):string; //16进制转字串var HexS,TmpStr 阅读全文

摘要：XML文件?xml version="1.0" encoding="utf-8"?.......因为原因很多，所以这个方法不一定能解决问题[代码] 阅读全文

摘要：重载 CreateParams 方法即可声明：procedure CreateParams(var Params: TCreateParams);override; procedure TForm2.CreateParams(var Params: TCreateParams);begin inherited; Params.WndParent := 0;end; 阅读全文

摘要：GifImage 2.2 控件下载 for Delphi7/622732641GifImage v2.2版的控件下载，内含一个通用版，适用于Delphi7、2007等版本，另外还有两个适用于Delphi7/6的，大家选择使用。GifImage就一款可以使Delphi中的Image组件支持GIF图像的控件，在图像识别、图像显示方面有较广用途。 下载地址：http://download.csdn.net/source/1939580 阅读全文