摘要: 打算每天写一个小算法,也为以后查找起来更方便一些。(均为我自己运行能通过的代码,以便对delphi不太熟悉的人直接粘贴,即可运行起来,呵呵)插入排序:定义个函数:(*从第2个开始,每次与前面的X个已排序好的数字比较*)procedure TForm1.InsertSort;var i,j,k,n: Integer;begin for i := 2 to Length(A) do begin k := A[i]; j := i - 1; while ((j > 0) and (A[j] > k)) do begin A[j ... 阅读全文
posted @ 2013-04-26 18:21 丁满同志 阅读(128) 评论(0) 推荐(0)
摘要: 1、经过这么多年发展的VCL到底是什么?2、我们为什么需要VCL?3、VCL和Windows程序设计有什么关系?4、delphi不使用VCL可以写Windows应用程序吗?5、VCL与其他的WINdows Framework有何不同?6、windows上到底有多少Framework?他们之间有何不同? 第一章:回到从前消息驱动模型:因为我们不知道每一个应用程序在何时回发生/出发事件,以及会触发什么事件,更不知道何时会点击鼠标、键盘,因此我们无法设计一个大型循环,然后在此循环中不断检查每一个应用程序是否触发了特定的事件。即便能够设计出来,我们可以想象,这仍然是非常愚蠢的做... 阅读全文
posted @ 2013-03-29 17:03 丁满同志 阅读(769) 评论(0) 推荐(0)
摘要: delphi中表示跳出的有break,continue, exit,abort, halt, runerror。1、break 强制退出循环(只能放在循环中),用于从For语句,while语句或repeat语句中强制退出。2、continue 用于从For语句,while语句或repeat语句强行结束本次称称循环,并开始下一次循环。3、exit 用于从当前代码块中退出。若该代码为主程序,则终止该程序,若是函数或过程,则立即退出该过程或函数。4、abort 中止程序的运行,产生不报错的异常信息。跳出祖先模块。和exit的区别是procedure p1;begin p2; p3;end;pro.. 阅读全文
posted @ 2013-03-29 14:44 丁满同志 阅读(158) 评论(0) 推荐(0)