易截截图软件、单文件、免安装、纯绿色、仅160KB

一名Delphi程序员的开发习惯

有关开发习惯的一些想法,如鲠在喉,不吐不快。究其发贴动机,当然不排除有骗取参与分的可能,但另一方面,也希望能给同行(念Xing)者提供一些
建议,或者参考(希望不是误人子弟)。同时,也希望各位能够就我的这些陋习,发表一点看法,给出批评和指正的意见。谢谢。
一.建立工程目录
      
首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各
个目录:
       <Doc>:用来存放该项目相关的开发文档(需求说明,概要设计,详细设计等等等等);
       <Source>:用来存放Delphi源程序中的”.Dpr”,”.Pas”,”.Dfm”等文件;
      
<Dcu>:该目录中存放”.Dcu”文件,将’.Pas’与’.Dcu’文件分开存放只是为了让Source目录的内容更加清楚一些;
       <Bin>:存放工程的输出文件,比如”.Exe”,”.Dll”或者”.Ocx”等等;
       <Log>:用来存放日志文件;通常在这个目录中我会放一个”<项目名称>程序员日志.Txt”文件。
      
<Images>:当然是存放工程中用到的图片的目录了。一般情况下,这个目录是少不了的。假如还用到其他资源,那么也一样建立各自的目录,
比如Wav,比如Avi等等。
二.设置工程选项
      在Delphi中创建一个新的工程,将此工程保存到Source目录中,同时:
a.
选一个耐看的,与项目有些联系的图标作为这个工程的图标。当然,这个图标可能只是临时用用的,但是总要比Delphi默认的那个难看的要好才行,要不然,
怎么对得起自己?
b.将Project Options -> Directories/Conditionals页面中的Output
Directory设置为Bin目录;
c.将Unit output Directory设置为Dcu目录。
三.添加常量单元
      添加一个新的Unit,另存为“unt<工程名> Consts.Pas”,用来保存工程中用到的常量。
四.有关窗体(Form)及单元(Unit)
   


相关文档:

Delphi自适应分辨率(比较完美的一个方法)

procedure TfrmMain.FormCreate(Sender: TObject); //主窗体FormCreate事件
var FWidth:integer;
begin
  if (screen.Width <> 1024) then  //假设你设计程序时的分辨率为1024
  begin
    FWidth:=width;
    scaled:=true;
  & ......

Delphi遍历Panel组件上的所有控件

procedure frmMain.CLS; //主窗体自定义事件CLS
var i:integer;
begin
  for i:=0 to panel5.ControlCount -1 do
  begin
    if panel5.Controls[i] is TEdit then  //Edit组件
    begin
       ((panel5.Contro ......

Delphi中取整函数Round的Bug解决

Delphi中 Round函数有个Bug
一旦参数是形如 XXX.5这样的数时
如果 XXX 是奇数 那么就会 Round up
如果 XXX 是偶数 那么就会 Round down
例如 Round(17.5)=18
但是 Round(12.5)=12
下面的函数即可纠正这个 Bug 但是是临时性的
执行 DoRound(12.5) 结果为 13 正确
 function DoRound(Value: Extended): Int64;
......

Delphi TStream 详细介绍

Delphi TStream 详细介绍
Stream对象,又称流式对象,是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力,它们将各种数据类型(包括对象和部件) 
在内存、外存和数据库字段中的管理操作抽象为对象方法,并且充分利用了面向对 ......

delphi 加字符串相加

procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
   name := edit2.Text ;
   name := '%' + name ;
   query1.Close ;
   query1.SQL.Clear ;
   query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
 &nb ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号