delphi十个小技巧

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十个小技巧相关推荐

android studio导出apk_Android 应用构建速度提升的十个小技巧
应用的构建速度会直接影响开发效率,本文将带您通过改造一个 Android 应用: "Google 追踪圣诞老人 (Google Santa Tracker)" 来为大家提供十个小技 ...
Oracle 查询的十个小技巧
Oracle数据库查询十个小技巧数据查询,是数据库操作中最主要的功能之一:有时候数据库查询性能的好坏,直接关系到数据库的运行效率,关系到数据库的选型.下面笔者不谈大道理,只是对其中对一些平时大家容易 ...
Delphi变成小技巧——直接将excel当做表来显示
Delphi变成小技巧--直接将excel当做表来显示来源:http://apps.hi.baidu.com/share/detail/21513554#content 步骤: 1.添加ADOQue ...
Oracle数据库查询十个小技巧
数据查询,是数据库操作中最主要的功能之一:有时候数据库查询性能的好坏,直接关系到数据库的运行效率,关系到数据库的选型.下面笔者不谈大道理,只是对其中对一些平时大家容易忽略的查询小技巧做一些总结.或许大 ...
SAP ABAP Development Tool 提高开发效率的十个小技巧
这是 Jerry 2021 年的第 46 篇文章,也是汪子熙公众号总共第 323 篇原创文章. Jerry 已经有很长一阵子没有打开工作电脑上的 SAP ABAP Development Tool 了 ...
十个模块_专栏 | ABAQUS Part模块的十个小技巧
作者介绍星辰_北极星 2012年开始从事Abaqus仿真相关工作,服务大小课题逾百项; 主要仿真领域:石油工程.岩土工程和金属加工工艺: 重点研究方向:ABAQUS GUI二次开发.固体力学.断裂以 ...
windows光标_掌握这十个小技巧，帮你从Windows轻松过渡到MacOS
Mac到手之后发现和Windows很多操作不一样!以前很多在Windows平台上非常便利的操作到了Mac平台上都没有用了.然而改变从来都不是一件容易的事,当从 Windows 系统的「舒适圈」里跳到需 ...
【思维导图】人像摄影如何使用光线？十个小技巧
原文链接:http://www.fsbus.com/renxiangsheying/21800.html 我补充了部分图片做说明以前总结的别人视频里的光源一般是越广越好,第二张照片太唯美了链接在 ...
java面试技巧_Java面试的十个小技巧
快过年了年后就是一个应聘的高峰期,许多Java程序员要面临着面试的各种问题,而也有许多学院将要去进行面试,在面试的时候会紧张会有种种的困难,但是你要在进行Java面试的时候要明白一些小技巧,往往一些小 ...

delphi十个小技巧

delphi十个小技巧相关推荐

最新文章

热门文章