delphi十个小技巧 / 四六文摘

1、判断一个字符串是否包含于另外一个字符串的方法

例如：if pos('ab','abcd')<>0 then

messagedlg('ab是包含于abcd',mtConfirmation,[mbYes, mbNo],0);

pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.

2、如何使窗口全屏，类似游戏一样，而不是窗口的最大化!

(1)BorderStyle 为 bsNone

(2)Windowstate 为 wsMaximized

(3) 退出时可加一个按钮之类的，写上 close 即可退出。

3、数字格式化输出

format('%8.2f',[123.456])，返回字符串'123.46'。

4、播放一个wav文件

usemmsystem;

SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC);

5、InputBox,InputQuery和ShowMessage函数的威力

usesdialogs;

vars,s1:string;

b:boolean;

begin

s:=trim(Inputbox('NewPassword','Password','masterkey'));

b:=s<>'';

s1:=s;

if b then b:=InputQuery('ConfirmPassword','Password',s1);

if not b or (s1<>s) thenShowMessage('Password Failed');

end;

6、几个有关子目录的操作的过程

MkDir(str); ChDir(str); GetDir(DriveID,str); SetCurrentDir(str);

IOResult --上面几个过程调用成功即返回0值

7、将一个可视控件变成图形类型

例如将一个带背景的LABEL变成一个TIMAGE图片类型，可以这样做：

image1.width:=label1.width;

image1.height:=label1.height;

label1.perform(WM_PAINT,image1.Canvas.Handle,0);

8、如何得到字符的ASCII值

得到字符的ASCII值，可以用如下语句：

var: a:integer;

string1:string;

begin

string1:='ABC';

a:=byte(string[1]); {此时就得到'A'的ASCII值}

end;

9、动态更新DBGrid的颜色

例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell：

procedureTForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol:Integer; Column: TColumn; State: TGridDrawState);

begin

ifTable1.FieldByName('Population').AsInteger > 20000000 then DBGrid1.Canvas.Font.Color := clBlue;

DBGrid1.DefaultDrawColumnCell(Rect,DataCol, Column, State); end;

10、获得命令行参数

1. 取得命令列参数的个数: ParamCount 函数

2. 呼叫 ParamStr(0), 传回执行档的档名(含路径)

3. 呼叫ParamStr(n), 传回第ｎ个参数的内容

例子：

procedureTForm1.FormCreate(Sender: TObject);

var

　ix: integer;

begin

　Memo1.Lines.Clear;

　if ParamCount = 0 then

　　Memo1.Lines.Add('没有参数')

　else

　begin

　　Memo1.Lines.Add('档名:' + ParamStr(0));

　　for ix := 1 to ParamCount do

　　Memo1.Lines.Add(ParamStr(ix));

　end;

delphi小技巧两则转自逸仙时空

最近在研究类及类方法时发现一些很有趣的用法，这里挑出两则最有用的与大家分享。　

一、访问保护属性

众所周知，delphi的对象有private、protected和public三个级别的访问控制。而delphi有一个奇怪的规则，就是在同一个unit里的对象可以互相访问对方的protected级别属性！

利用这个特性，我们可以轻松访问任意对象的protected级别属性。虽然这样不是很符合面向对象编程的封装的思想，但有时的确是非常有用的。比如在使用TDBGrid时，我们对如何获得其Row和Col非常头疼，其实在TDBGrid中，Row和Col都是protected级别的属性，我们只要在需要使用这两个属性的unit的interface里声明　　

TFakeGrid =class(TDBGrid);　　

然后就可以使用TFakeGrid(ADBGrid).Row和TFakeGrid(ADBGrid).Col轻松访问了，这个规则对protected里的方法同样适用。　　

二、类方法的使用类方法（Classmethods）是一类特殊的方法，它们在声明时要以class开头　

type　

TFigure =class　

public　　...

classprocedure GetInfo(var Info: TFigureInfo);

virtual;　

...　

end;　　

实现时也以class开头　

classprocedure TFigure.GetInfo(var Info: TFigureInfo);　

begin

...

end;　

（具体意义请自行查看帮助）　　　

乍一看好象平时没有遇到过这个东东，也没有看到过谁用过这个东东，好象这个东东也没有什么大作用，其实不然……　　比如我们有时为输入密码或其他常用数据专门做一个form，但由于其代码都在form定义的unit里面，所以在使用时仅仅需要几行代码，比如

withTfrmPassword.Create(nil)

try

ShowModal;　

finally　

Free;　

end;　　

虽然这样的代码已经很简洁，但如果写个十七八个还是很讨厌的。利用类方法可以使其更简洁！

一行足以……　　

TfrmPassword= class(TForm)　

...　　

public

{ Publicdeclarations }　　

classfunction Execute: TModalResult;　　

end;　

...

classfunction TfrmPassword.Execute:

TModalResult;　

begin

withTfrmPassword.Create(nil)

try 　

Result :=ShowModal;　

finally

Release;//注意此处必须为release不能为free！　

end;　

然后只用一行　　

TfrmPassword.Execute;　　　　

即可直接完成调用……是否很爽^_^

1、检测主程序大小，防止破解补丁之类：

FunctionTForm1.GesSelfSf: integer;

var

F: file ofbyte;

begin

Filemode:=0;

Assignfile(F,'.\FileName.exe');

Reset(f);

Result:=Filesize(F);

Closefile(F);

end;

2、检测创建日期和时间，让破解补丁实效：

FunctionTForm1.FinDate:String;

var

t:TDate;

begin

ShortDateFormat:='yyyy-mm-dd';

t:=FileDateToDateTime(FileAge('FileName.exe'));

Result:=DateToStr(t);

end;

3、注册码加密函数嵌入数学函数，增加破解难度：

（略）

4、必要时自己删除自己（主程序）：

procedureTForm1.Funll;

var

hModule:THandle;

buff:array[0..255]ofChar;

hKernel32:THandle;

pExitProcess,pDeleteFileA,pUnmapViewOfFile:Pointer;

begin

hModule:=GetModuleHandle(nil);

GetModuleFileName(hModule, buff, sizeof(buff));

CloseHandle(THandle(4));

hKernel32:=GetModuleHandle('KERNEL32');

pExitProcess:=GetProcAddress(hKernel32, 'ExitProcess');

pDeleteFileA:=GetProcAddress(hKernel32, 'DeleteFileA');

pUnmapViewOfFile:=GetProcAddress(hKernel32, 'UnmapViewOfFile');

asm

LEA EAX, buff

PUSH 0

PUSH EAX

PUSH pExitProcess

PUSH hModule

PUSH pDeleteFileA

PUSH pUnmapViewOfFile

RET

end;

begin

Funll;

end;

网上找来的感觉对入门者很有启示收藏一下了!

No.1 判断逻辑类型}

var B:Boolean;

begin

B :=Boolean(2); //这样只是为了调试//B := True;

if B = Truethen ShowMessage('B = True'); //不建议//不安全

///

if B thenShowMessage('B'); //建议//简短

end;

var B:Boolean;

begin

ifEdit1.Text = '是' then //不建议//烦琐

B := True

else B :=False;

///

B :=Edit1.Text = '是'; //建议//简短

end;

{ No.2临时SQL查询 }

begin

QueryTemp.Close;

QueryTemp.SQL.Text:= 'SELECT SUM(金额) AS 合计 FROM 销售表';

QueryTemp.Open;//不建议//数据没有关闭造成资源浪费

ShowMessage(Query1.FieldByName('合计').AsString);

QueryTemp.SQL.Text:= 'SELECT SUM(金额) AS 合计 FROM 销售表';

QueryTemp.Open;

ShowMessage(Query1.FieldByName('合计').AsString);

QueryTemp.Close;//建议用//使用完就关闭

end;

{ No.3获取记录数 }

var

vRecordCount:Integer;

begin

Query1.SQL.Text:= 'SELECT * FROM Table1'; //不建议//严重浪费资源，会取得很多不必要得信息

Query1.Open;

vRecordCount:= Query1.RecordCount;

Query1.Close;

Query1.SQL.Text:= 'SELECT COUNT(*) AS 记录数 FROM Table1'; //建议//快速有效、只处理一条记录

Query1.Open;

vRecordCount:= Query1.FieldByName('记录数').AsInteger;

Query1.Close;

ShowMessage(IntToStr(vRecordCount));

end;

{ No.4 字段赋值}

begin

Table1.Edit;

Table1.FieldByName('姓名').AsString:= Edit1.Text; //不建议

Table1.FieldByName('日期').AsDateTime:= Date;

Table1['姓名']:= Edit1.Text; //建议//简短、扩充性好

//Table1.Fieldvalues['姓名']:= Edit1.Text; //Borland建议的方法。以及Paramvalues[]

Table1['日期']:= Date;

end;

{ No.5使用Self指针 }

begin

Edit1.Parent:= Form1; //不建议//Form1只是一个变量//如果没有分配资源怎么办？

///

Edit1.Parent:= Self; //建议

end;

{ No.6遍历数据集 }

var

I: Integer;

begin

Query1.First;

for I := 0to Query1.RecordCount - 1 do begin //不建议//容易被影响

Query1.Next;

{};

end;

Query1.First;

while notQuery1.Eof do begin //建议

{ }

Query1.Next;

end;

{ No.7利用Sender参数，使代码通用 }

procedureTForm1.Edit1Change(Sender: TObject);

begin

ifEdit1.Text = '' then //不建议

Edit1.Color:= clRed;

///

ifTEdit(Sender).Text = '' then //建议//复制到EditXChange中很方便

TEdit(Sender).Color:= clRed;

end;

{ No.8使用默认转换函数 }

var

I: Integer;

begin

I :=StrToInt(Edit1.Text); //不建议

///

I :=StrToIntDef(Edit1.Text,0);//建议//参考StrToFloatDef,StrToDateDef....不过这些只有Delphi6才有

end;

{ No.9 遍历数组}

var

I: Integer;

A:array[0..9] of Integer;

begin

for I := 0to 9 do //不建议

A[I] := I;

///

for I :=Low(A) to High(A) do //建议//扩充性好

A[I] := I;

end;

{ No.10利用MaxInt常量 }

begin

Caption :=Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建议

///

Caption :=Copy(Edit1.Text, 3, MaxInt); //建议//嘻嘻，少计算一次

end;

{ No.11Result函数指针 }

functionFuncName: Boolean;

begin

FuncName :=True; //不建议//并且放在赋值号右边不能当普通变量

///

Result :=True; //建议//扩充性好

end;

functionFuncSum(A: array of Integer): Integer;

var I:Integer;

begin

Result :=0;

for I :=Low(A) to High(A) do

Result :=Result + A[I]; //可不能用 FuncSum := FuncSum + A[I];

end;

{ No.12必须执行的代码、使用try ... finally ... end语句 }

var

vStringList:TStringList;

begin

vStringList:= TStringList.Create;

vStringList.LoadFromFile('c:\temp.txt');

ShowMessage(vStringList.Text);

vStringList.Free;//不建议//如果出现异常资源将无法释放

///

vStringList:= TStringList.Create;

try

vStringList.LoadFromFile('c:\temp.txt');

ShowMessage(vStringList.Text);

finally//建议//即使出现Exit都会执行

vStringList.Free;

end;

//其他情况1

begin

Screen.Cursor:= crHourGlass;

try

{ 耗时操作 }

finally

Screen.Cursor:= crDefault;

end;

//其他情况2

begin

Query1.DisableControls;

try

{ 操作数据集 }

finally

Query1.EnableControls;

end;

◇[DELPHI]网络邻居复制文件

usesshellapi;

copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);

◇[DELPHI]产生鼠标拖动效果

通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:

varxpanel,ypanel,xlabel,ylabel:integer;

PANEL的MouseMove事件:xpanel:=x;ypanel:=y;

PANEL的DragOver事件:xpanel:=x;ypanel:=y;

LABEL的MouseMove事件:xlabel:=x;ylabel:=y;

LABEL的EndDrag 事件:label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

◇[DELPHI]取得WINDOWS目录

usesshellapi;

varwindir:array[0..255] of char;

getwindowsdirectory(windir,sizeof(windir));

或者从注册表中读取,位置:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion

SystemRoot键,取得如:C:\WINDOWS

◇[DELPHI]在FORM或其他容器上画线

varx,y:array [0..50] of integer;

canvas.pen.color:=clred;

canvas.pen.style:=psDash;

form1.canvas.moveto(trunc(x[i]),trunc(y[i]));

form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

◇[DELPHI]字符串列表使用

vartips:tstringlist;

tips:=tstringlist.create;

tips.loadfromfile('filename.txt');

edit1.text:=tips[0];

tips.add('lastline addition string');

tips.insert(1,'insertstring at NO 2 line');

tips.savetofile('newfile.txt');

tips.free;

◇[DELPHI]简单的剪贴板操作

richedit1.selectall;

richedit1.copytoclipboard;

richedit1.cuttoclipboard;

edit1.pastefromclipboard;

◇[DELPHI]关于文件、目录操作

Chdir('c:\abcdir');转到目录

Mkdir('dirname');建立目录

Rmdir('dirname');删除目录

GetCurrentDir;//取当前目录名,无'\'

Getdir(0,s);//取工作目录名s:='c:\abcdir';

Deletfile('abc.txt');//删除文件

Renamefile('old.txt','new.txt');//文件更名

ExtractFilename(filelistbox1.filename);//取文件名

ExtractFileExt(filelistbox1.filename);//取文件后缀

◇[DELPHI]处理文件属性

attr:=filegetattr(filelistbox1.filename);

if (attrand faReadonly)=faReadonly then ... //只读

if (attrand faSysfile)=faSysfile then ... //系统

if (attrand faArchive)=faArchive then ... //存档

if (attrand faHidden)=faHidden then ... //隐藏

◇[DELPHI]执行程序外文件

WINEXEC//调用可执行文件

winexec('command.com/c copy *.* c:\',SW_Normal);

winexec('startabc.txt');

ShellExecute或ShellExecuteEx//启动文件关联程序

functionexecutefile(const filename,params,defaultDir:string;showCmd:integer):THandle;

ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);

ExecuteFile('http://tingweb.yeah.net','','',0);

ExecuteFile('mailto:tingweb@wx88.net','','',0);

◇[DELPHI]取得系统运行的进程名

varhCurrentWindow:HWnd;szText:array[0..254] of char;

begin

hCurrentWindow:=Getwindow(handle,GW_HWndFrist);

whilehCurrentWindow <> 0 do

begin

ifGetwindowtext(hcurrnetwindow,@sztext,255)>0 thenlistbox1.items.add(strpas(@sztext));

hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);

end;

◇[DELPHI]关于汇编的嵌入

Asm End;

可以任意修改EAX、ECX、EDX;不能修改ESI、EDI、ESP、EBP、EBX。

◇[DELPHI]关于类型转换函数

FloatToStr//浮点转字符串

FloatToStrF//带格式的浮点转字符串

IntToHex//整数转16进制

TimeToStr

DateToStr

DateTimeToStr

FmtStr//按指定格式输出字符串

FormatDateTime('YYYY-MM-DD,hh-mm-ss',DATE);

◇[DELPHI]字符串的过程和函数

Insert(obj,target,pos);//字符串target插入在pos的位置。如插入结果大于target最大长度,多出字符将被截掉。如Pos在255以外,会产生运行错。例如,st:='Brian',则Insert('OK',st,2)会使st变为'BrOKian'。

Delete(st,pos,Num);//从st串中的pos(整型)位置开始删去个数为Num(整型)个字符的子字串。例如,st:='Brian',则Delete(st,3,2)将变为Brn。

Str(value,st);//将数值value(整型或实型)转换成字符串放在st中。例如,a=2.5E4时,则str(a:10,st)将使st的值为'25000'。

Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。

Copy(st.pos.num);//返回st串中一个位置pos(整型)处开始的,含有num(整型)个字符的子串。如果pos大于st字符串的长度,那就会返回一个空串,如果pos在255以外,会引起运行错误。例如,st:='Brian',则Copy(st,2,2)返回'ri'。

Concat(st1,st2,st3……,stn);//把所有自变量表示出的字符串按所给出的顺序连接起来,并返回连接后的值。如果结果的长度255,将产生运行错误。例如,st1:='Brian',st2:='',st3:='Wilfred',则Concat(st1,st2,st3)返回'Brian Wilfred'。

Length(st);//返回字符串表达式st的长度。例如,st:='Brian',则Length(st)返回值为5。

Pos(obj,target);//返回字符串obj在目标字符串target的第一次出现的位置,如果target没有匹配的串,Pos函数的返回值为0。例如,target:='BrianWilfred',则Pos('Wil',target)的返回值是7,Pos('hurbet',target)的返回值是0。

◇[DELPHI]关于处理注册表

usesRegistry;

varreg:Tregistry;

reg:=Tregistry.create;

reg.rootkey:='HKey_Current_User';

reg.openkey('ControlPanel\Desktop',false);

reg.WriteString('TitleWallpaper','0');

reg.writeString('Wallpaper',filelistbox1.filename);

reg.closereg;

reg.free;

◇[DELPHI]关于键盘常量名

VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE

/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN

F1--F12:$70(112)--$7B(123)

A-Z:$41(65)--$5A(90)

0-9:$30(48)--$39(57)

◇[DELPHI]初步判断程序母语

DELPHI软件的DOS提示:ThisProgram Must Be Run Under Win32.

VC++软件的DOS提示:ThisProgram Cannot Be Run In DOS Mode.

◇[DELPHI]操作Cookie

response.cookies("name").domain:='http://www.086net.com';

withresponse.cookies.add do

begin

name:='username';

value:='username';

end

◇[DELPHI]增加到文档菜单连接

usesshellapi,shlOBJ;

shAddToRecentDocs(shArd_path,pchar(filepath));//增加连接

shAddToRecentDocs(shArd_path,nil);//清空

◇[杂类]备份智能ABC输入法词库

windows\system\user.rem

windows\system\tmmr.rem

◇[DELPHI]判断鼠标按键

ifGetAsyncKeyState(VK_LButton)<>0 then ... //左键

ifGetAsyncKeyState(VK_MButton)<>0 then ... //中键

ifGetAsyncKeyState(VK_RButton)<>0 then ... //右键

◇[DELPHI]设置窗体的最大显示

onFormCreate事件

self.width:=screen.width;

self.height:=screen.height;

◇[DELPHI]按键接受消息

OnCreate事件中处理:Application.OnMessage:=MyOnMessage;

procedureTForm1.MyOnMessage(var MSG:TMSG;var Handle:Boolean);

begin

ifmsg.message=256 then ... //ANY键

ifmsg.message=112 then ... //F1

ifmsg.message=113 then ... //F2

end;

◇[杂类]隐藏共享文件夹

共享效果:可访问,但不可见(在资源管理、网络邻居中)

取共享名为:direction$

访问://computer/dirction/

◇[JavaScript]Java Script网页常用效果

网页60秒定时关闭

关闭窗口

关闭

定时转URL

数据源,一个是MQIS,一个是LocalSever,任选一个选后点击配置按钮,不知你的SQL7.0

是不是安装在本地机器上,如果是的话直接进行下一步,如果不是,在服务器一栏中填上

Server,然后进行下一步,填写登录ID和密码(登录ID,和密码是在SQL7.0中的用户选项

中设的)。

第二步,配置BDE:

打开Delphi的BDE,然后点击MQIS或 LocalServer,就会提示用户名和密码,这和

ODBC的用户名和密码是一样的,填上就行了。

第三步,配置程序:

如果用的是TTable,就在TTable的DatabaseName中选择MQIS或LocalServer,然后在

TableName中选择Sale就行了,然后将Active改为True,Delphi弹出提示对话,填入用户

名和密码。

如果用的是TQuery,在TQuery上点击右键,再击"SQLBuilder",这是以界面方式配置

SQL语句,或者在TQuery的SQL中填入SQL语句。最后,别忘了将Active改为True。

在运行也可能配置TQuery,具体见Delphi帮助。

□◇[DELPHI]得到图像上某一点的RGB值

procedureTForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift:TShiftState; X, Y: Integer);

var

red,green,blue:byte;

i:integer;

begin

i:=image1.Canvas.Pixels[x,y];

Blue:=GetBValue(i);

Green:=GetGValue(i):

Red:=GetRValue(i);

Label1.Caption:=inttostr(Red);

Label2.Caption:=inttostr(Green);

Label3.Caption:=inttostr(Blue);

end;

□◇[DELPHI]关于日期格式分解转换

varyear,month,day:word;now2:Tdatatime;

now2:=date();

decodedate(now2,year,month,day);

lable1.Text:=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';

◇[DELPHI]如何判断当前网络连接方式

判断结果是MODEM、局域网或是代理服务器方式。

useswininet;

FunctionConnectionKind :boolean;

var flags:dword;

begin

Result :=InternetGetConnectedState(@flags, 0);

if Resultthen

begin

if (flagsand INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then

begin

showmessage('Modem');

end;

if (flagsand INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then

begin

showmessage('LAN');

end;

if (flagsand INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then

begin

showmessage('Proxy');

end;

if (flagsand INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then

begin

showmessage('ModemBusy');

end;

◇[DELPHI]如何判断字符串是否是有效EMAIL地址

functionIsEMail(EMail: String): Boolean;

var s:String;ETpos: Integer;

begin

ETpos:=pos('@', EMail);

if ETpos> 1 then

begin

s:=copy(EMail,ETpos+1,Length(EMail));

if(pos('.', s) > 1) and (pos('.', s) < length(s)) then

Result:=true else Result:= false;

end

else

Result:=false;

end;

◇[DELPHI]判断系统是否连接INTERNET

需要引入URL.DLL中的InetIsOffline函数。

函数申明为:

functionInetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

然后就可以调用函数判断系统是否连接到INTERNET

ifInetIsOffline(0) then ShowMessage('not connected!')

elseShowMessage('connected!');

该函数返回TRUE如果本地系统没有连接到INTERNET。

附:

大多数装有IE或OFFICE97的系统都有此DLL可供调用。

InetIsOffline

BOOLInetIsOffline(

DWORDdwFlags,

);

◇[DELPHI]简单地播放和暂停WAV文件

usesmmsystem;

functionPlayWav(const FileName: string): Boolean;

begin

Result :=PlaySound(PChar(FileName), 0, SND_ASYNC);

end;

procedureStopWav;

var

buffer:array[0..2] of char;

begin

buffer[0]:= #0;

PlaySound(Buffer,0, SND_PURGE);

end;

◇[DELPHI]取机器BIOS信息

withMemo1.Lines do

begin

Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));

Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));

Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));

Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));

end;

◇[DELPHI]网络下载文件

usesUrlMon;

functionDownloadFile(Source, Dest: string): Boolean;

begin

try

Result :=UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;

except

Result :=False;

end;

ifDownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then

ShowMessage('Downloadsuccesful')

elseShowMessage('Download unsuccesful')

◇[DELPHI]解析服务器IP地址

useswinsock

functionIPAddrToName(IPAddr : String): String;

var

SockAddrIn:TSockAddrIn;

HostEnt:PHostEnt;

WSAData:TWSAData;

begin

WSAStartup($101,WSAData);

SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));

HostEnt:=gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);

ifHostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:='';

end;

◇[DELPHI]取得快捷方式中的连接

functionExeFromLink(const linkname: string): string;

var

FDir,

FName,

ExeName:PChar;

z:integer;

begin

ExeName:=StrAlloc(MAX_PATH);

FName:=StrAlloc(MAX_PATH);

FDir:=StrAlloc(MAX_PATH);

StrPCopy(FName,ExtractFileName(linkname));

StrPCopy(FDir,ExtractFilePath(linkname));

z:=FindExecutable(FName, FDir, ExeName);

if z >32 then

Result:=StrPas(ExeName)

else

Result:='';

StrDispose(FDir);

StrDispose(FName);

StrDispose(ExeName);

end;

◇[DELPHI]控制TCombobox的自动完成

{'Sorted'property of the TCombobox to true }

varlastKey: Word; //全局变量

//TCombobox的OnChange事件

procedureTForm1.AutoCompleteChange(Sender: TObject);

var

SearchStr:string;

retVal:integer;

begin

SearchStr:= (Sender as TCombobox).Text;

if lastKey<> VK_BACK then // backspace: VK_BACK or $08

begin

retVal :=(Sender as TCombobox).Perform(CB_FINDSTRING, -1,LongInt(PChar(SearchStr)));

if retVal> CB_Err then

begin

(Sender asTCombobox).ItemIndex := retVal;

(Sender asTCombobox).SelStart := Length(SearchStr);

(Sender asTCombobox).SelLength :=

(Length((Senderas TCombobox).Text) - Length(SearchStr));

end; //retVal > CB_Err

end; //lastKey <> VK_BACK

lastKey :=0; // reset lastKey

end;

//TCombobox的OnKeyDown事件

procedureTForm1.AutoCompleteKeyDown(Sender: TObject; var Key: Word;

Shift:TShiftState);

begin

lastKey :=Key;

end;

◇[DELPHI]如何清空一个目录

functionEmptyDirectory(TheDirectory :String ; Recursive : Boolean) :

Boolean;

var

SearchRec :TSearchRec;

Res :Integer;

begin

Result :=False;

TheDirectory:= NormalDir(TheDirectory);

Res :=FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);

try

while Res =0 do

begin

if(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then

begin

if((SearchRec.Attr and faDirectory) > 0) and Recursive

then begin

EmptyDirectory(TheDirectory+ SearchRec.Name, True);

RemoveDirectory(PChar(TheDirectory+ SearchRec.Name));

end

else begin

DeleteFile(PChar(TheDirectory+ SearchRec.Name))

end;

Res :=FindNext(SearchRec);

end;

Result :=True;

finally

FindClose(SearchRec.FindHandle);

end;

◇[DELPHI]如何计算一个目录的大小

functionGetDirectorySize(const ADirectory: string): Integer;

var

Dir:TSearchRec;

Ret:integer;

Path:string;

begin

Result :=0;

Path :=ExtractFilePath(ADirectory);

Ret :=Sysutils.FindFirst(ADirectory, faAnyFile, Dir);

if Ret<> NO_ERROR then exit;

try

whileret=NO_ERROR do

begin

inc(Result,Dir.Size);

if(Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then

Inc(Result,GetDirectorySize(Path + Dir.Name + '\*.*'));

Ret :=Sysutils.FindNext(Dir);

end;

finally

Sysutils.FindClose(Dir);

end;

◇[DELPHI]安装程序如何添加到Uninstall列表

操作注册表,如下:

1.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall键下建立一个主键,名称任意。

例HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUninstall

2.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUnistall下键两个串值,

这两个串值的名称是特定的:DisplayName和UninstallString。

3.给串DisplayName赋值为显示在“删除应用程序列表”中的名称,如'AimingUninstall one';

给串UninstallString赋值为执行的删除命令,如C:\WIN97\uninst.exe -f"C:\TestPro\aimTest.isu"

◇[DELPHI]截获WM_QUERYENDSESSION关机消息

type

TForm1 =class(TForm)

procedureWMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

procedureCMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;

private

{ Privatedeclarations }

public

{ Publicdeclarations }

end;

procedureTForm1.WMQueryEndSession(var Message: TWMQueryEndSession);

begin

Showmessage('computeris about to shut down');

end;

◇[DELPHI]获取网上邻居

proceduregetnethood();//NT做服务器,WIN98上调试通过。

var

a,i:integer;

errcode:integer;

netres:array[0..1023]of netresource;

enumhandle:thandle;

enumentries:dword;

buffersize:dword;

s:string;

mylistitems:tlistitems;

mylistitem:tlistitem;

alldomain:tstrings;

begin//listcomputer is a listview to list all computers;controlcenter is a form.

alldomain:=tstringlist.Create;

withnetres[0] do begin

dwscope:=RESOURCE_GLOBALNET;

dwtype:=RESOURCETYPE_ANY;

dwdisplaytype:=RESOURCEDISPLAYTYPE_DOMAIN;

dwusage:=RESOURCEUSAGE_CONTAINER;

lplocalname:=nil;

lpremotename:=nil;

lpcomment:=nil;

lpprovider:=nil;

end; //获取所有的域

errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);

iferrcode=NO_ERROR then begin

enumentries:=1024;

buffersize:=sizeof(netres);

errcode:=wnetenumresource(enumhandle,enumentries,@netres[0],buffersize);

end;

a:=0;

mylistitems:=controlcenter.lstcomputer.Items ;

mylistitems.Clear;

while(string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do

begin

alldomain.Add(netres[a].lpremotename);

a:=a+1;

end;

wnetcloseenum(enumhandle);

// 获取所有的计算机

mylistitems:=controlcenter.lstcomputer.Items ;

mylistitems.Clear;

for i:=0 toalldomain.Count-1 do

begin

withnetres[0] do begin

dwscope:=RESOURCE_GLOBALNET;

dwtype:=RESOURCETYPE_ANY;

dwdisplaytype:=RESOURCEDISPLAYTYPE_SERVER;

dwusage:=RESOURCEUSAGE_CONTAINER;

lplocalname:=nil;

lpremotename:=pchar(alldomain[i]);

lpcomment:=nil;

lpprovider:=nil;

end;

ErrCode:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],EnumHandle);

iferrcode=NO_ERROR then

begin

EnumEntries:=1024;

BufferSize:=SizeOf(NetRes);

ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);

end;

a:=0;

while(string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do

begin

mylistitem:=mylistitems.Add ;

mylistitem.ImageIndex:=0;

mylistitem.Caption:=uppercase(stringreplace(string(NetRes[a].lpremotename),'\\','',[rfReplaceAll]));

a:=a+1;

end;

wnetcloseenum(enumhandle);

end;

◇[DELPHI]获取某一计算机上的共享目录

proceduregetsharefolder(const computername:string);

var

errcode,a:integer;

netres:array[0..1023]of netresource;

enumhandle:thandle;

enumentries,buffersize:dword;

s:string;

mylistitems:tlistitems;

mylistitem:tlistitem;

mystrings:tstringlist;

begin

withnetres[0] do begin

dwscope:=RESOURCE_GLOBALNET;

dwtype:=RESOURCETYPE_DISK;

dwdisplaytype:=RESOURCEDISPLAYTYPE_SHARE;

dwusage:=RESOURCEUSAGE_CONTAINER;

lplocalname:=nil;

lpremotename:=pchar(computername);

lpcomment:=nil;

lpprovider:=nil;

end; //获取根结点

errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);

iferrcode=NO_ERROR then

begin

EnumEntries:=1024;

BufferSize:=SizeOf(NetRes);

ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);

end;

wnetcloseenum(enumhandle);

a:=0;

mylistitems:=controlcenter.lstfile.Items;

mylistitems.Clear;

while(string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do

begin

withmylistitems do

begin

mylistitem:=add;

mylistitem.ImageIndex:=4;

mylistitem.Caption:=extractfilename(netres[a].lpremotename);

end;

a:=a+1;

end;

◇[DELPHI]得到硬盘序列号

varSerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;

begin

ifGetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0)then Label1.Caption := IntToStr(SerialNum^);

end;

◇[DELPHI]MEMO的自动翻页

ProcedureScrollMemo(Memo : TMemo; Direction : char);

begin

casedirection of

'd':begin

SendMessage(Memo.Handle,{ HWND of the Memo Control }

WM_VSCROLL,{ Windows Message }

SB_PAGEDOWN,{ Scroll Command }

0) { NotUsed }

end;

'u' :begin

SendMessage(Memo.Handle,{ HWND of the Memo Control }

WM_VSCROLL,{ Windows Message }

SB_PAGEUP,{ Scroll Command }

0); { NotUsed }

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

ScrollMemo(Memo1,'d');//上翻页

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

ScrollMemo(Memo1,'u');//下翻页

end;

◇[DELPHI]DBGrid中回车到下个位置(Tab键)

procedureTForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if Key =#13 then

ifDBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then

DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex+ 1].Field.FocusControl

else

begin

Table1.next;

DBGrid1.Columns[0].field.FocusControl;

end;

◇[DELPHI]如何安装控件

安装方法:

1.对于单个控件,Component-->installcomponent..-->PAS或DCU文件-->install

2.对于带*.dpk文件的控件包,File-->open(下拉列表框中选*.dpk)-->install即可.

3.对于带*.dpl文件的控件包,InstallPackages-->Add-->dpl文件名即可。

4.如果以上Install按钮为失效的话,试试Compile按钮。

5.是run timelib则在option下的packages下的runtimepackes加之.

如果编译时提示文件找不到的话,一般是控件的安装目录不在delphi的Lib目录中,有两种方法可以解决:

1.把安装的原文件拷入到delphi的Lib目录下。

2.或者Tools-->EnvironmentOptions中把控件原代码路径加入到Delphi的Lib目录中即可。

◇[DELPHI]目录完全删除(deltree)

procedureTForm1.DeleteDirectory(strDir:String);

var

sr:TSearchRec;

FileAttrs:Integer;

strfilename:string;

strPth:string;

begin

strpth:=Getcurrentdir();

FileAttrs:= faAnyFile;

ifFindFirst(strpth+'\'+strdir+'\*.*', FileAttrs, sr) = 0 then

begin

if (sr.Attrand FileAttrs) = sr.Attr then

begin

strfilename:=sr.Name;

iffileexists(strpth+'\'+strdir+'\'+strfilename) then

deletefile(strpth+'\'+strdir+'\'+strfilename);

end;

whileFindNext(sr) = 0 do

begin

if (sr.Attrand FileAttrs) = sr.Attr then

begin

strfilename:=sr.name;

iffileexists(strpth+'\'+strdir+'\'+strfilename) then

deletefile(strpth+'\'+strdir+'\'+strfilename);

end;

FindClose(sr);

removedir(strpth+'\'+strdir);

end;

◇[DELPHI]取得TMemo控件当前光标的行和列信息到Tpoint中

1.functionReadCursorPos(SourceMemo: TMemo): TPoint;

var Point:TPoint;

begin

point.y :=SendMessage(SourceMemo.Handle,EM_LINEFROMCHAR,SourceMemo.SelStart,0);

point.x :=SourceMemo.SelStart-SendMessage(SourceMemo.Handle,EM_LINEINDEX,point.y,0);

Result :=Point;

end;

2.LineLength:=SendMessage(memol．handle,EM-LINELENGTH,Cpos,0);//行长

◇[DELPHI]读硬盘序列号

functionGetDiskSerial(DiskChar: Char): string;

var

SerialNum :pdword;

a, b :dword;

Buffer :array [0..255] of char;

begin

result :="";

ifGetVolumeInformation(PChar(diskchar+":\"), Buffer, SizeOf(Buffer),SerialNum,

a, b, nil,0) then

Result :=IntToStr(SerialNum^);

end;

◇[INTERNET]CSS常用综合技巧

1。P:first-letter{ font-size: 300%; float: left }//首字会比普通字体加大三倍。

2。//连接一个外部样式表

3。嵌入一个样式表

4。 //内联样式

Arial//SPAN接受STYLE、CLASS和ID属性

DIV可以包含段落、标题、表格甚至其它部分

5。CLASS属性

//定义见3。

6。ID属性

//定义见3。

7。属性列表

字体风格:font-style:[normal | italic | oblique];

文本修饰:text-decoration:[underline || overline || line-through || blink ]

文本转换:text-transform:[none| capitalize | uppercase | lowercase]

背景颜色:background-color:[<颜色>| transparent]

背景图象:background-image:[| none]

行高:line-height:[normal | <数字> | <长度> | <百分比>]

漂浮:float:[left | right | none]

8。长度单位

相对单位:

em(em,元素的字体的高度)

ex(x-height,字母 "x" 的高度)

px(像素,相对于屏幕的分辨率)

绝对长度:

in(英寸,1英寸=2.54厘米)

cm(厘米,1厘米=10毫米)

mm(米)

pt(点,1点=1/72英寸)

pc(帕,1帕=12点)

◇[DELPHI]VCL制作简要步骤

1.创建部件属性方法事件

(建立库单元,继承为新的类型,添加属性、方法、事件,注册部件,建立包文件)

2.消息处理

3.异常处理

4.部件可视

◇[DELPHI]动态连接库的装载

静态装载:procedurename;external 'lib.dll';

动态装载:varhandle:Thandle;

handle:=loadlibrary('lib.dll');

ifhandle<>0 then

begin

{dosomething}

freelibrary(handle);

end;

◇[DELPHI]指针变量和地址

varx,y:integer;p:^integer;//指向INTEGER变量的指针

x:=10;//变量赋值

p:=@x;//变量x的地址

y:=p^;//为Y赋值指针P

@@procedure//返回过程变量的内存地址

◇[DELPHI]判断字符是汉字的一个字符

ByteType('你好haha吗',1)= mbLeadByte//是第一个字符

ByteType('你好haha吗',2)= mbTrailByte//是第二个字符

ByteType('你好haha吗',5)= mbSingleByte//不是中文字符

◇[DELPHI]memo的定位操作

memo1.lines.delete(0)//删除第1行

memo1.selstart:=10//定位10字节处

◇[DELPHI]获得双字节字符内码

functiongetit(s: string): integer;

begin

Result :=byte(s[1]) * $100 + byte(s[2]);

end;

使用:getit('计')//$bcc6即十进制 48326

◇[DELPHI]调用ADD数据存储过程

存储过程如下:

createprocedure addrecord(

record1varchar(10)

record2varchar(20)

)

begin

insert intotablename (field1,field2) values(:record1,:record2)

end

执行存储过程:

EXECUTEprocedure addrecord("urrecord1","urrecord2")

◇[DELPHI]将文件存到blob字段中

functionblobcontenttostring(const filename: string):string;

begin

withtfilestream.create(filename,fmopenread) do

try

setlength(Result,size);

read(Pointer(Result)^,size);

finally

free;

end;

//保存字段

begin

if(opendialog1.execute) then

begin

sFileName:=OpenDialog1.FileName;

adotable1.edit;

adotable1.fieldbyname('visio').asstring:=Blobcontenttostring(FileName);

adotable1.post;

end;

◇[DELPHI]把文件全部复制到剪贴板

usesshlobj,activex,clipbrd;

procedureTform1.copytoclipbrd(var FileName:string);

var

FE:TFormatEtc;

Medium:TStgMedium;

dropfiles:PDropFiles;

pFile:PChar;

begin

FE.cfFormat:= CF_HDROP;

FE.dwAspect:= DVASPECT_CONTENT;

FE.tymed :=TYMED_HGLOBAL;

Medium.hGlobal:= GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT,SizeOf(TDropFiles)+length(FileName)+1);

ifMedium.hGlobal<>0 then begin

Medium.tymed:= TYMED_HGLOBAL;

dropfiles:= GlobalLock(Medium.hGlobal);

try

dropfiles^.pfiles:= SizeOf(TDropFiles);

dropfiles^.fwide:= False;

longint(pFile):= longint(dropfiles)+SizeOf(TDropFiles);

StrPCopy(pFile,FileName);

Inc(pFile,Length(FileName)+1);

pFile^ :=#0;

finally

GlobalUnlock(Medium.hGlobal);

end;

Clipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);

end;

◇[DELPHI]列举当前系统运行进程

usesTLHelp32;

procedureTForm1.Button1Click(Sender: TObject);

var lppe:TProcessEntry32;

found :boolean;

Hand :THandle;

begin

Hand :=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);

found :=Process32First(Hand,lppe);

while founddo

begin

ListBox1.Items.Add(StrPas(lppe.szExeFile));

found :=Process32Next(Hand,lppe);

end;

◇[DELPHI]根据BDETable1建立新表Table2

Table2:=TTable.Create(nil);

try

Table2.DatabaseName:=Table1.DatabaseName;

Table2.FieldDefs.Assign(Table1.FieldDefs);

Table2.IndexDefs.Assign(Table1.IndexDefs);

Table2.TableName:='new_table';

Table2.CreateTable();

finally

Table2.Free();

end;

◇[DELPHI]最菜理解DLL建立和引用

//先看DLLsource(FILE-->NEW-->DLL)

libraryproject1;

uses

SysUtils,Classes;

functionaddit(f:integer;s:integer):integer;export;

begin

makeasum:=f+s;

end;

exports

addit;

end.

//调用(IN urPROJECT)

implementation

functionaddit(f:integer;s:integer):integer;far;external 'project1';//申明

{调用就是addit(2,4);结果显示6}

◇[DELPHI]动态读取程序自身大小

functionGesSelfSize: integer;

var

f: file ofbyte;

begin

filemode :=0;

assignfile(f,application.exename);

reset(f);

Result :=filesize(f);//单位是字节

closefile(f);

end;

◇[DELPHI]读取BIOS信息

withMemo1.Lines do

begin

Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));

Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));

Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));

Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));

end;

◇[DELPHI]动态建立MSSQL别名

procedureTForm1.Button1Click(Sender: TObject);

var MyList:TStringList;

begin

MyList :=TStringList.Create;

try

with MyListdo

begin

Add('SERVERNAME=210.242.86.2');

Add('DATABASENAME=db');

Add('USERNAME=sa');

end;

Session1.AddAlias('TESTSQL', 'MSSQL', MyList); //ミMSSQL

Session1.SaveConfigFile;

finally

MyList.Free;

Session1.Active:=True;

Database1.DatabaseName:='DB';

Database1.AliasName:='TESTSQL';

Database1.LoginPrompt:=False;

Database1.Params.Add('USERNAME=sa');

Database1.Params.Add('PASSWORD=');

Database1.Connected:=True;

end;

procedureTForm1.Button2Click(Sender: TObject);

begin

Database1.Connected:=False;

Session1.DeleteAlias('TESTSQL');

end;

◇[DELPHI]播放背景音乐

usesmmsystem

//播放音乐

MCISendString('OPENe:\1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);

MCISendString('PLAYNN FROM 0', '', 0, 0);

MCISendString('CLOSEANIMATION', '', 0, 0);

end;

//停止播放

MCISendString('OPENe:\1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);

MCISendString('STOPNN', '', 0, 0);

MCISendString('CLOSEANIMATION', '', 0, 0);

◇[DELPHI]接口和类的一个范例代码

Type{接口和类申明:区别在于不能在接口中申明数据成员、任何非公有的方法、公共方法不使用PUBLIC关键字}

Isample=interface//定义Isample接口

functiongetstring:string;

end;

Tsample=class(TInterfacedObject,Isample)

public

functiongetstring:string;

end;

//function定义

functionTsample.getstring:string;

begin

result:='whatshow is ';

end;

//调用类对象

varsample:Tsample;

begin

sample:=Tsample.create;

showmessage(sample.getstring+'classobject!');

sample.free;

end;

//调用接口

varsampleinterface:Isample;

sample:Tsample;

begin

sample:=Tsample.create;

sampleInterface:=sample;//Interface的实现必须使用class

{以上两行也可表达成sampleInterface:=Tsample.create;}

showmessage(sampleInterface.getstring+'Interface!');

//sample.free;{和局部类不同,Interface中的类自动释放}

sampleInterface:=nil;{释放接口对象}

end;

◇[DELPHI]任务条就看不当程序

var

ExtendedStyle: Integer;

begin

Application.Initialize;

ExtendedStyle:= GetWindowLong (Application.Handle, GWL_EXSTYLE);

SetWindowLong(Application.Handle,GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);

Application.CreateForm(TForm1,Form1);

Application.Run;

end.

◇[DELPHI]ALT+CTRL+DEL看不到程序

在implementation后添加声明:

functionRegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;external 'KERNEL32.DLL';

RegisterServiceProcess(GetCurrentProcessID,1);//隐藏

RegisterServiceProcess(GetCurrentProcessID,0);//显示

◇[DELPHI]检测光驱符号

vardrive:char;

cdromID:integer;

begin

fordrive:='d' to 'z' do

begin

cdromID:=GetDriveType(pchar(drive+':\'));

ifcdromID=5 then showmessage('你的光驱为:'+drive+'盘!');

end;

◇[DELPHI]检测声卡

ifauxGetNumDevs()<=0 then showmessage('No soundcard found!') elseshowmessage('Any soundcard found!');

◇[DELPHI]在字符串网格中画图

StringGrid.OnDrawCell事件

withStringGrid1.Canvas do

Draw(Rect.Left,Rect.Top, Image1.Picture.Graphic);

◇[SQLSERVER]SQL中代替Like语句的另一种写法

比如查找用户名包含有"c"的所有用户,可以用

usemydatabase

select *from table1 where username like'%c%"

下面是完成上面功能的另一种写法:

usemydatabase

select *from table1 where charindex('c',username)>0

这种方法理论上比上一种方法多了一个判断语句,即>0,但这个判断过程是最快的, 我想信80%以上的运算都是花在查找字

符串及其它的运算上,所以运用charindex函数也没什么大不了. 用这种方法也有好处, 那就是对%,|等在不能直接用like

查找到的字符中可以直接在这charindex中运用,如下:

usemydatabase

select *from table1 where charindex('%',username)>0

也可以写成:

usemydatabase

select *from table1 where charindex(char(37),username)>0

ASCII的字符即为%

◇[DELPHI]SQL显示多数据库/表

SELECTDISTINCT A.bianhao,a.xingming, b.gongzi FROM "jianjie.dbf" a,"gongzi.DBF" b

WHEREA.bianhao=b.bianhao

◇[DELPHI]RFC(RequestFor Comment)相关

IETF(InternetEngineering Task Force)维护RFC文档http://www.ietf.cnri.reston.va.us

RFC882:报文头标结构

RFC1521:MIME第一部分,传输报文方法

RFC1945:多媒体文档传输文档

◇[DELPHI]TNMUUProcessor的使用

varinStream,outStream:TFileStream;

begin

inStream:=TFileStream.create(infile.txt,fmOpenRead);

outStream:=TFileStream(outfile.txt,fmCreate);

NMUUE.Method:=uuCode;{UUEncode/Decode}

//NMUUE.Method:=uuMIME;{MIME}

NMUUE.InputStream:=InStream;

NMUUE.OutputStream:=OutStream;

NMUUE.Encode;{编码处理}

//NMUUE.Decode;{解码处理}

inStream.free;

outStream.free;

end;

◇[DELPHI]TFileStream的操作

//从文件流当前位置读count字节到缓冲区BUFFER

functionread(var buffer;count:longint):longint;override;

//将缓冲区BUFFER读到文件流中

functionwrite(const buffer;count:longint):longint;override;

//设置文件流当前读写指针为OFFSET

functionseek(offset:longint;origin:word):longint;override;

origin={soFromBeginning,soFromCurrent,soFromEnd}

//从另一文件流中当前位置复制COUNT到当前文件流当前位置

functioncopyfrom(source:TStream;count:longint):longint;

//读指定文件到文件流

varmyFStream:TFileStream;

begin

myFStream:=TFileStream.create(OpenDialog1.filename,fmOpenRead);

end;

[JavaScript]检测是否安装IE插件Shockwave&Quicktime

varmyPlugin = navigator.plugins["Shockwave"];

if(myPlugin)

document.writeln("你已经安装了Shockwave!")

else

document.writeln("你尚未安装Shockwave!")

varmyPlugin = navigator.plugins["Quicktime"];

if(myPlugin)

document.writeln("你已经安装了Quicktime!")

else

document.writeln("你尚未安装Quicktime!")

delphi十个小技巧

相关推荐