摘要：
procedure TForm1.FormCreate(Sender: TObject); var DT:TdateTime; Dw:Integer; S:String; begin Dt:=now; Dw:=DayOfWeek(Dt); StatusBar1.Panels[0].Text:=SysUtils.DateToStr(Dt); Case Dw of 1:S:='星期天'; 2:S:='星期一'; 3:S:='星期二'; 4:S:='星期三'; 5:S:='星期四'; ... 阅读全文
摘要：
我们在用Delphi编译完程序，准备发布产品时，总希望随产品发布个性信息以标示产品的来源以及开发者等信息，就像windows的程序一样，使我们一看属性就知道他是微软的产品，这些在Delphi中是如何实现的呢？下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。正在装载数据……第一，给exe文件添加版本信息。这个我想大家都会添加的，Delphi已经给我们提供了相关选项了.具体做法:打开你的工程，选择菜单Project-->Options...--->Version info选中"Include version infomation in project&quo 阅读全文
摘要：
Exit 是跳出当前代码块，也就是当前函数，跳出后是要继续向下执行的（如果有后续代码）。Abort 是从 EAbort 过来的，可以激发 exception，其实质就是 Abort = RaiseException()，是一个不出现对话框的异常。所以 Abort 的行为和异常是一样的，其代码执行顺序也是follow异常的流程。例如：try (1) //执行了 abort; (2) //不执行exception (3) //执行了end;用 Abort 能够执行 exception 里边的代码，但是如果用 Exit，就直接离开，不管 exception。例如：procedure p1;begi. 阅读全文