10 2015 档案

摘要:TreeView有个属性: HideSelection 如果设置成False,那么失去焦点也会有灰底的选中效果 选中时的效果: 失去焦点的效果: 阅读全文
posted @ 2015-10-29 16:00 GOD攀 阅读(882) 评论(0) 推荐(0)
摘要:1.添加一个TdxBarManager之后,New2个菜单组 2.把里面第一个设置成主菜单 3.将菜单风格设置成bmsUseLookAndFeel,菜单界面就会变的很美丽了。 4.效果图如下: 阅读全文
posted @ 2015-10-28 19:23 GOD攀 阅读(510) 评论(0) 推荐(0)
摘要:开发数组,参数用const限定词,Slice为取部分长度的数组成员。也可以直接用 [] 的方式传参 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphi... 阅读全文
posted @ 2015-10-25 01:58 GOD攀 阅读(346) 评论(0) 推荐(0)
摘要:动态数组支持直接相加,方法如下: 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V... 阅读全文
posted @ 2015-10-25 01:35 GOD攀 阅读(356) 评论(0) 推荐(0)
摘要:动态数组直接 := 赋值给新数组,那么这2个数组还是同一个数组,修改任意一个数组成员值,另外一个数组也跟随着变化。 如果动态数组用Copy赋值,那么则不会跟着随动变化 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Varia... 阅读全文
posted @ 2015-10-25 01:29 GOD攀 阅读(252) 评论(0) 推荐(0)
摘要:静态数组赋值方法如下: 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl... 阅读全文
posted @ 2015-10-25 01:09 GOD攀 阅读(186) 评论(0) 推荐(0)
摘要:定义函数构型,然后在再调用函数 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vc... 阅读全文
posted @ 2015-10-25 00:49 GOD攀 阅读(309) 评论(0) 推荐(0)
摘要:很好用的一个计时类,用于计算某个功能耗时的毫秒数量 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, ... 阅读全文
posted @ 2015-10-25 00:14 GOD攀 阅读(234) 评论(0) 推荐(0)
摘要:Delphi函数声明可以写预设参数,定义的时候,可以不用写 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Form... 阅读全文
posted @ 2015-10-24 23:49 GOD攀 阅读(249) 评论(0) 推荐(0)
摘要:可以修改如下: 或者如下: 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms... 阅读全文
posted @ 2015-10-23 17:22 GOD攀 阅读(211) 评论(0) 推荐(0)
摘要:开发数组的参数赋值和传参如下: 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, ... 阅读全文
posted @ 2015-10-23 17:12 GOD攀 阅读(173) 评论(0) 推荐(0)
摘要:按值传递,会在函数内复制一个变量,不会改变外部参数的值。 按址传递,需要在参数上写var标识符,会改变外部传入参数的值。 如下图: 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classe... 阅读全文
posted @ 2015-10-23 17:00 GOD攀 阅读(171) 评论(0) 推荐(0)
摘要:如果程序 A 调用程序 B,而程序 B 又调用程序 A,当我们开始撰写这 个程序代码的时候,我们等于是在呼叫一个编译程序还没看到的程序。 在这个情形下(还有很多情形也会有类似的情况发生),我们可以先宣告一个 函式或者程序, 把完整的名称、 参数都宣告好, 但不用提供完整的程序代码。 要做到这一点,我们只要把完整的程序或函数名称宣告写好,最后加上一个 forward... 阅读全文
posted @ 2015-10-23 16:44 GOD攀 阅读(186) 评论(0) 推荐(0)
摘要:for in 循环中,会把整个数组、字符串、List 里面的所有元素都列出来。 procedure TForm1.Button1Click(Sender: TObject); var S: string; Ch: Char; begin S := 'Hello world'; for Ch in S do begin Memo1.Lines.Add(... 阅读全文
posted @ 2015-10-23 16:33 GOD攀 阅读(135) 评论(0) 推荐(0)
摘要:Dec 把参数一的数据递减,如果有参数二,则把参数一递减 参数二所述的数值 Inc 把参数一的数据递增,如果有参数二,则把参数一递增 参数二所述的数值 Odd 回传参数数据是否为奇数,如果要测试是否为偶数,请 直接加个 not 在前面做反向运算即可:not Odd Pred 回传参数数据的前一个数值,系统会依据参数型别来判... 阅读全文
posted @ 2015-10-23 16:02 GOD攀 阅读(169) 评论(0) 推荐(0)
摘要:关键代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; ... 阅读全文
posted @ 2015-10-23 15:17 GOD攀 阅读(157) 评论(0) 推荐(0)
摘要:1.按Ctrl+D 可以格式化代码 2.注释方法如下: { 这里面的文字都是批注 } (* 这是第二段批注 *) // 从左边出现了两个斜线以后,到本行的末端都会被视为批注 阅读全文
posted @ 2015-10-23 14:59 GOD攀 阅读(142) 评论(0) 推荐(0)
摘要:1.新建多设备运用程序工程 2.选择空白的运用 3.代码如下,点击运行,可以看到运行平台 关键代码: 1 procedure TForm1.Button1Click(Sender: TObject); 2 begin 3 {$IFDEF IOS} 4 ShowMessage ('Running on ... 阅读全文
posted @ 2015-10-23 14:49 GOD攀 阅读(227) 评论(0) 推荐(0)
摘要:1.新建工程,选择New->Other 2.选择Console Applicat 3.写好以下代码 ,点击绿色三角运行 阅读全文
posted @ 2015-10-23 14:40 GOD攀 阅读(320) 评论(0) 推荐(0)