提高软件执行效率的几条原则
似乎有很多朋友对于我说的“避免使用WITH语句”持反对意见。理由是With语句可以提高执行效率。的确With是可以稍微提高一些执行效率，但是这是以破坏代码可读性的代价来换取的，尤其是多个WITH语句嵌套在一起的时候。
其实，如何提高执行效率主要还是在你所写下的代码里。以下是我总结的几条提高执行效率的例子，请大家指正：
一、尽量避免使用重复的语句块：
我们来看一段代码：
//假设已经有var的声明： Loop, LoopChild: Word;
//ArrayA, ArrayB: array of Char;
//Value: Char;
for Loop := 0 to 100 do
ArrayA:= ArrayB;
for Loop := 0 to 100 do
begin
Value:= ArrayA;
for LoopChild := 0 to 100 do
...
end;
其实这个就是重复的语句块的执行了，上面的代码我们可以写成：
CopyMemory(@ArrayA, @ArrayB, SizeOf(ArrayA));
for Loop := 0 to 100 do
begin
Value:= ArrayA;
for LoopChild := 0 to 100 do
...
end;
二、尽量不要使用 i:= i + x;这样的语句
在DELPHI里高效率的替代语句是Inc(i, x);等同于C中的i += x;
三、尽可能的减少运算次数
如复制字符串的右边部分：s:= Copy(Text, 3, Length(Text) - 2);
我们可以替代成：s:= Copy(Text, 3, MaxInt);
因为不管你传进去的拷贝长度是否越界，COPY函数内部都会做一次检查，反正都是要检查的，干脆用长一点不是很好吗，而且LENGTH（）这里多调用了一次函数判断字符串的长度。
四、不使用if Flag = True then 这样的语句
原因很简单，因为FLAG本来就是BOOLEAN类型的变量，完全没有必要提取他的值来和True比较，直接写成
if Flag then 可以有效的减少执行时间；
同理：
if Value = 0 then
Result:= True
else
Result:= False;
这样的语句也可以直接写成: Result:= Value = 0;
五、尽量减少子程序间的嵌套调用
其实这和提高可读性是矛盾的，过多的在子程序内部嵌套调用其他子程序是会影响执行效率的；
（所谓嵌套调用就是，比如有10个函数a1, a2, a3, a4, a5, a6, a7, a8, a9, a10; 那么在a1中调用a2,在a2中调用a3...这就叫嵌套调用）
至于怎么和可读性去协调，那么就要看实际情况了，不过我还是推荐以注意可读性为优先
六、尽可能使用整数运算来替代浮点运算
比如 Trunc(a / b) 如果可能的话，优先选择写成 a div b比较好（前提a, b都是整数）
七、循环次数多的循环尽可能的放在循环嵌套的内部
如：for i := 0 to 100 do
for j := 0 to 5 do
...
应该尽量写成:
for j := 0 to 5 do
for i := 0 to 100 do
...
因为每次循环前都需要对循环变量进行初始化操作，把循环次数多的循环放在内循环可以有效的减少这个操作，从而提高执行效率。
另外，大数据量的分页显示；直接的内存操作等等都可以有效的提高软件的执行效率……
以上是我暂时所能想到的了，呵！或许还有没有想到的，希望大家补充，也欢迎大家批评错误，谢谢！
http://www.cnpack.org/showdetail.php?id=533&lang=zh-cn 现在先看看，回来说不定用得着呢。谢谢了。
页:
[1]