2013年6月26日
查找杀死指定进程delphi
摘要： //需要引用tlhelp32单元//查找进程function findProcessId(pname:string):Cardinal; var hsnapshot:THandle; lpe:TProcessEntry32; found:Boolean; begin Result:=0; if pname'' then begin hsnapshot:=Cre... 阅读全文
posted @ 2013-06-26 16:09 胖达没有海 阅读(762) 评论(0) 推荐(0)
2013年6月25日
delphi集合的用法
摘要： unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TEnum = (One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten); TSetEnum = set of TEnum; TForm4 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; ... 阅读全文
posted @ 2013-06-25 10:53 胖达没有海 阅读(387) 评论(0) 推荐(0)
2013年6月13日
清空image画布并改变大小填充背景色
摘要： image控件改变大小后再填充背景色有可能会遇到填充不了整个区域，画布大小受picture制约。这时候需要把picture:=nil;置空再填充，或者把bitmap大小改变来改变画布区域。Image.Picture.Bitmap.Width:=image.width;Image.Picture.Bitmap.Height:=image.height; 阅读全文
posted @ 2013-06-13 17:16 胖达没有海 阅读(327) 评论(0) 推荐(0)
2013年5月29日
点击form其他地方移动form方法
摘要： 比如鼠标左键点击form中的一个button就可以移动整个窗体，只需在其mousemove事件中加入以下代码。procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);end; 阅读全文
posted @ 2013-05-29 15:07 胖达没有海 阅读(194) 评论(0) 推荐(0)
txt文件日志操作类
摘要： var log:textfile;lfname:string; AssignFile(log,lfname); //关联文件 Append(log);//追加文件内容 Rewrite(log);//重写文件内容 Writeln(log,tempstr+ str);//写入一行内容回车 Close... 阅读全文
posted @ 2013-05-29 14:47 胖达没有海 阅读(347) 评论(0) 推荐(0)
Ini文件操作
摘要： //ini也可以实现多级菜单操作，需要递归搜索ini文件TiniOptiType=(IniOpDelete,IniOpWrite,IniOpRead) //声明了一个删除、写、读的枚举类型function iniOptiOnce(Fpath:string;IniOptiType:TiniOptiType;sec:string;key:string;value:string='';strDef:string=''):string;var configIni:TIniFile;begin Result:=''; if not FileExists(F 阅读全文
posted @ 2013-05-29 14:38 胖达没有海 阅读(250) 评论(0) 推荐(0)
修改字符日期类型为系统类型
摘要： 有时候保存到数据库的日期类型是字符类型，在不同系统下因为系统的日期类型不一致会导致转换出错如strtodatetime，利用下面的方法转换一下日期字符就不会报错。'2012-1-1 12:12:12'与 '2012/1/1 12:12:12'function changeDateType(str:string):string;var sysdate,a,old:string; I:Integer; strlist:Tstringlist;begin sysdate:=datetostr(now); if str='' then begin Res 阅读全文
posted @ 2013-05-29 14:34 胖达没有海 阅读(156) 评论(0) 推荐(0)
取汉字首字母方法
摘要： 定义字符串数组后调用下面的ChnToPY方法即可。const py: array[216..247] of string = ({216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL&# 阅读全文
posted @ 2013-05-29 14:27 胖达没有海 阅读(1284) 评论(0) 推荐(0)
splitStr分割字符串函数
摘要： 把source字符串按ch子串进行分割保存至stringlist中function splitStr(ch:string;source:string):TStringList;var i:Integer;begin Result:=TStringList.Create; if (ch<>'')and (source<>'') then begin while pos(ch,source)>0 do begin i:=pos(ch,source); Result.Add(Copy(source,1,i-1)); source:=Cop 阅读全文
posted @ 2013-05-29 14:23 胖达没有海 阅读(1167) 评论(0) 推荐(0)
NativeXml使用方法
摘要： NativeXml可以在官网上下载，下载后将文件夹放在指定地方，打开DELPHI在其环境变量中引用NativeXml路径，然后在程序中引用NativeXml单元，我们就可以使用NativeXml了。NativeXml的方法属性:xml:= TNativeXml.Create(Self);//创建xml.XmlFormat := xfReadable; //格式//xml.EncodingString := 'UTF-8';//编码xml.ExternalEncoding := seUTF8;xml.LoadFromFile();//从文件夹中导入XML文件xml.SaveToF 阅读全文
posted @ 2013-05-29 14:09 胖达没有海 阅读(2639) 评论(0) 推荐(0)