摘要：
//需要引用tlhelp32单元//查找进程function findProcessId(pname:string):Cardinal; var hsnapshot:THandle; lpe:TProcessEntry32; found:Boolean; begin Result:=0; if pname'' then begin hsnapshot:=Cre... 阅读全文
摘要：
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; ... 阅读全文
摘要：
image控件改变大小后再填充背景色有可能会遇到填充不了整个区域，画布大小受picture制约。这时候需要把picture:=nil;置空再填充，或者把bitmap大小改变来改变画布区域。Image.Picture.Bitmap.Width:=image.width;Image.Picture.Bitmap.Height:=image.height; 阅读全文
摘要：
比如鼠标左键点击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; 阅读全文
摘要：
var log:textfile;lfname:string; AssignFile(log,lfname); //关联文件 Append(log);//追加文件内容 Rewrite(log);//重写文件内容 Writeln(log,tempstr+ str);//写入一行内容回车 Close... 阅读全文
摘要：
//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 阅读全文
摘要：
有时候保存到数据库的日期类型是字符类型，在不同系统下因为系统的日期类型不一致会导致转换出错如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 阅读全文
摘要：
定义字符串数组后调用下面的ChnToPY方法即可。const py: array[216..247] of string = ({216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL&# 阅读全文
摘要：
把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 阅读全文
摘要：
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 阅读全文