我的Delphi开发经验谈
我的Delphi开发经验谈
作者：Icebird
--------
开发环境
--------
Delphi
7是一个很经典的版本，在Win2000/XP下推荐安装Delphi 7来开发软件，在Vista下推荐使用Delphi 2007开发软件。安装好Delphi
7后，应立即安装Delphi 7 Update Pack 1，Delphi
2007则建议尽量安装最新的版本。工欲善其事，必先利其器，为了提升开发效率，为了能更加得心应手的处理接下来的开发工作，我们有必要安装一些有用的开发辅助工具（Delphi将此类插件以Expert命名）。首先推荐的是DelForExp这个源代码格式化工具，集成在IDE里，使用相当方便。即使我所写代码的风格非常好，但是还是免不了阅读某些人写的乱七八糟的代码，这时DelForExp就能派上用场了，1秒钟就能让代码能看上去顺眼多了。GExperts曾经是一个非常出名的工具，可现在都不怎么更新了，里面有几个功能还是值得一用，比如Grep
Search, Replace Components, Code Proofreader等。强烈推荐安装CnPack IDE
专家包，相信我，它会让你的Delphi更好用。Delphi
7是不支持重构的，因此我还建议安装Castalia，这个工具中某些功能还是很不错的。CodeRush一直都是Delphi下最强大的工具，可是由于安装后比较容易与其他工具冲突，让人不得不忍痛割爱。Delphi
7下建议安装Delphi
SpeedUp这个IDE加速工具，其原理是在Delphi启动前，替换RTL的函数为来自FastCode工程的执行效率更高的函数。ModelMaker Code
Explorer为Delphi增加了一些方便重构代码的功能，值得安装使用。
第一次启动Delphi 7，关闭设置中的Delphi
Direct以禁止Delphi访问Borland服务器，勾选Show Compiler
Progress选项以便编译程序时可以看见编译进度，然后分别设置所安装的专家的选项，再对Delphi的窗体布局按自己的喜好调整，调整好了然后将其保存为默认布局。关闭工程，设置好默认的工程选项。接下来就可以安装控件包了。如果是在项目小组中配置开发环境，因为可能所需的控件比较多，安装比较麻烦，建议由一个有经验的开发人员将那些散装控件预编译后做成安装程序供小组其他成员安装。
--------
软件设计
--------
在整理自己的思路的时候可以采用PersonalBrain来画思维导图，这是一个拓展脑力，激发思维的一个活动，并且将自己的想法全部记录下来，并在整理的过程当中可以发现内在联系与更多的问题，在接下来的设计中加以考虑。做设计�
相关文档：
转自：http://www.52delphi.com/List.asp?ID=597&Page=1
核心提示：函数需要 uses Direct3D9,D3DX9; 偶然发现一个函数可以直接保存表面到文件1！所以修改了一下，函数为：...
procedure CaptureScreen(Const FileName: string);
var
BitsPerPixel: Byte;
pD3D: IDirect3D9;
pSurface: IDirect3DSurface9;
......
Delphi字符串函数大全
uses StrUtils;
【字符串函数大全】
首部 function AnsiResemblesText(const AText, AOther: string): Boolean;
$[StrUtils.pas
功能 返回两个字符串是否相似
......
TreeView由节点构成,建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象,这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性:
1、count,节点个数。
2、item[index] ,通过index得到节点。
二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作 ......
type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;
const
FindSet = ['(',')'];
implementation
{$R *.dfm}
{ TCharStack }
......
Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>张三</name><sex>男</sex></user>';
sh ......
