如果参数在函数中不可能修改, 一定要使用 const;
不然, 编译器就会:
假定先修改, 先要备份; 使用前后要增减引用计数; 还要套上 try finally.
指定了 const 就可以避免以上过程从而提高效率.
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Button1: TButton;
procedure
Button1Click(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
//判断一个字符串中数字的个数
function
GetNum1(str: string
): Integer;
var
i: Integer;
begin
Result := 0
;
for
i := 1
to
Length(str) do
if
str[i] in
['0'
..'9'
] then
Inc(Result);
end
;
//同样的函数只是给参数加上 const
function
GetNum2(const
str: string
): Integer;
var
i: Integer;
begin
Result := 0
;
for
i := 1
to
Length(str) do
if
str[i] in
['0'
..'9'
] then
Inc(Result);
end
;
{对比测试}
procedure
TForm1.Button1Click(Sender: TObject);
......
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Button1: TButton;
Button2: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
//分割文件的函数
{参数 1 是要分割的文件名; 参数 2 是要风格文件的大小, 单位是 KB}
{分割后的文件名扩展名用序号替换}
function
SplitFile(const
FileName: string
; Size: Cardinal): Boolean;
var
fStream: TFileStream; {原始文件}
toStream: TMemoryStream; {分文件}
p,i: Integer; {p 记录当前指针位置; i 记录这是第几个分的文件}
begin
Result := False;
Size := Size * 1024
; {把大小的单位转换为字节}
fStream := TFileStream.Create(FileName, fmOpenRead);
p := 0
;
i := 0
;
toStream := TMemoryStream.Create;
while
p < fStream.Size do
begin
toStream.Clear; {清空上次数� ......
我使用delphi也不是很长时间，由于经常要用到SQL语句，总结了一些Delphi中使用SQL语句要注意的事项，归纳起来主要有一下几条：
一、空格不要漏：
我们经常要拼装SQL语句，特别是where条件句，在各个语句中别忘了头尾加上空格。因为在一个语句中我们会注意用空格分开关键字但是往往忘了头尾的空格。例如：
sSQL=' select * from students Where ''a''=''a'' '
sWhere='and age >= 14'
sSQL = sSQL+sWhere;
sWhere='and age <= 16'
sSQL = sSQL+sWhere;
这个时候sSQL的内容为【select * from students where 'a'='a' and age >= 14and age <=16】
这个SQL语句肯定错了，因为【and age >=14】和【and age <= 16】之间没有空格，数据库分析的时候认为你需要的是【age >= 14and】的数据，能不出错吗？
二、引号配对：
这是在Delphi使用SQL语句时容易出错的地方，由于delphi规定在字符串中用两个西文的单引号“''”表示一个“'”，在拼装语句的时候就容易疏忽遗漏。
Delphi里有个函数QuotedStr能够在字符串的头尾加上一个西文的单引号【'】，这个函数的定义：function QuotedStr(const s: string):string;
因此，如果要在一� ......
我使用delphi也不是很长时间，由于经常要用到SQL语句，总结了一些Delphi中使用SQL语句要注意的事项，归纳起来主要有一下几条：
一、空格不要漏：
我们经常要拼装SQL语句，特别是where条件句，在各个语句中别忘了头尾加上空格。因为在一个语句中我们会注意用空格分开关键字但是往往忘了头尾的空格。例如：
sSQL=' select * from students Where ''a''=''a'' '
sWhere='and age >= 14'
sSQL = sSQL+sWhere;
sWhere='and age <= 16'
sSQL = sSQL+sWhere;
这个时候sSQL的内容为【select * from students where 'a'='a' and age >= 14and age <=16】
这个SQL语句肯定错了，因为【and age >=14】和【and age <= 16】之间没有空格，数据库分析的时候认为你需要的是【age >= 14and】的数据，能不出错吗？
二、引号配对：
这是在Delphi使用SQL语句时容易出错的地方，由于delphi规定在字符串中用两个西文的单引号“''”表示一个“'”，在拼装语句的时候就容易疏忽遗漏。
Delphi里有个函数QuotedStr能够在字符串的头尾加上一个西文的单引号【'】，这个函数的定义：function QuotedStr(const s: string):string;
因此，如果要在一� ......
JNI(Java+Native+Interface，Java本地接口)技术大家都不陌生，它可以帮助解决Java访问底层硬件的局限和执行效率的提高。关于JNI的开发，大多数资料讨论的都是如何用C/C++语言开发JNI，甚至于JDK也提供了一个javah工具来自动生成C语言程序框架。但是，对于广大的Delphi程序员来说，难道就不能用自己喜爱的Delphi与Java互通消息了吗？
通过对javah生成的C程序框架和JDK中的jni.h文件的分析，我们发现，Java利用JNI访问本地代码的关键在于jni.h中定义的JNINativeInterface_这个结构(Struct)，如果用Delhpi语言改写它的定义，应该也可以开发JNI的本地代码。幸运的是，在网上有现成的代码可以帮助你完成这个繁杂的工作，在http://delphi-jedi.org上提供了一个jni.pas文件，就是用Delphi语言重写的jni.h。我们只需在自己的Delphi工程中加入jni.pas就可以方便地开发出基于Delphi语言的JNI本地代码。
本文将利用jni.pas，讨论用Delphi语言开发JNI本地代码的基本方法。
先来看一个经典的HelloWorld例子。编写以下Java代码：
class+HelloWorld
{
public+native+void+displayHelloWorld();+
static
{
S ......
JNI(Java+Native+Interface，Java本地接口)技术大家都不陌生，它可以帮助解决Java访问底层硬件的局限和执行效率的提高。关于JNI的开发，大多数资料讨论的都是如何用C/C++语言开发JNI，甚至于JDK也提供了一个javah工具来自动生成C语言程序框架。但是，对于广大的Delphi程序员来说，难道就不能用自己喜爱的Delphi与Java互通消息了吗？
通过对javah生成的C程序框架和JDK中的jni.h文件的分析，我们发现，Java利用JNI访问本地代码的关键在于jni.h中定义的JNINativeInterface_这个结构(Struct)，如果用Delhpi语言改写它的定义，应该也可以开发JNI的本地代码。幸运的是，在网上有现成的代码可以帮助你完成这个繁杂的工作，在http://delphi-jedi.org上提供了一个jni.pas文件，就是用Delphi语言重写的jni.h。我们只需在自己的Delphi工程中加入jni.pas就可以方便地开发出基于Delphi语言的JNI本地代码。
本文将利用jni.pas，讨论用Delphi语言开发JNI本地代码的基本方法。
先来看一个经典的HelloWorld例子。编写以下Java代码：
class+HelloWorld
{
public+native+void+displayHelloWorld();+
static
{
S ......
1)JEDI - VCL
JEDI-VCL(JVCL) 库构建于 JEDI 社区捐赠的代码。他由超过 400 个可以在你的 Delphi 和 Kylix 项目中立即重用的组件构成。整个 JEDI VCL 在 Mozilla 公共许可证（MPL）条款下分发，他可以自由使用于免费软件和共享软件，以及开放源代码工程和商业项目。
网站：http://jvcl.sourceforge.net
(2)RXLib
RxLib 是用于 Borland Delphi 和 C++ Builder 的一整套组件集，他们可以构建灵活和丰富的用户界面，最重要的一点是他们完全免费。
网站：http://sourceforge.net/projects/rxlib
(3)LMD Tools - Special Edition（特别版）
LMD Tools 的免费版，将近 100 个组件，绝对免费。
网站：http://www.lmdinnovative.com
(4)Globus VCL Extensions Library(GVCL)
一个用于 Borland Delphi 3-7 和Borland C++ Builder 5 的组件和函数库，所有单元都包含源代码。这个特定的库是一个免费软件产品，在不更改安装文件内容和单元源代码的情况下可自由分发使用这个库。
网站：
http://cpr.biblio-globus.ru/GlobusLib.htm
http://www.spellabs.ru/gvclen.htm
(5)Pro VCL Extensions Library(ProLib)
用于 Borland Delphi 和 C++ Builder 的免费组件库，包含 28 个� ......
http://hi.baidu.com/rainbow_chaser/blog/item/7eb5f001c0d864e508fa93ac.html
1.防止刷新时闪烁的终极解决办法
{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }
Perform($000B, 0, 0); //锁屏幕 防止闪烁
// 做一些会发生严重闪烁的事情..
//解锁屏幕并重画
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);
2.图片上显示透明文字
//图片上显示透明的文字
//直接用.Canvas.Brush.Style:=bsClear;
//然后.Canvas.TextOut(x,y,'文字显示透明');
procedure TForm1.Button1Click(Sender: TObject);
var
bitBuf:TBitmap;
begin
bitBuf := TBitmap.Create;
try
bitbuf.LoadfromFile('测试图片.bmp');
Self.Canvas.Draw(0,0,bitbuf);
bitbuf.Transparent := True;
bitbuf.TransparentColor := clWhite; //文字显示透明
bitbuf.Canvas.font.color := clBlue; //文字颜色
bitbuf.Canvas.TextOut(10,10,'这样 ......
最新文章 : delphi