摘要：
TreeView有个属性： HideSelection 如果设置成False，那么失去焦点也会有灰底的选中效果 选中时的效果： 失去焦点的效果： 阅读全文
摘要：
1.添加一个TdxBarManager之后，New2个菜单组 2.把里面第一个设置成主菜单 3.将菜单风格设置成bmsUseLookAndFeel，菜单界面就会变的很美丽了。 4.效果图如下： 阅读全文
摘要：
开发数组，参数用const限定词,Slice为取部分长度的数组成员。也可以直接用 [] 的方式传参 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphi... 阅读全文
摘要：
动态数组支持直接相加，方法如下： 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V... 阅读全文
摘要：
动态数组直接 := 赋值给新数组，那么这2个数组还是同一个数组，修改任意一个数组成员值，另外一个数组也跟随着变化。 如果动态数组用Copy赋值，那么则不会跟着随动变化 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Varia... 阅读全文
摘要：
静态数组赋值方法如下： 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl... 阅读全文
摘要：
定义函数构型，然后在再调用函数 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vc... 阅读全文
摘要：
很好用的一个计时类，用于计算某个功能耗时的毫秒数量 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, ... 阅读全文
摘要：
Delphi函数声明可以写预设参数，定义的时候，可以不用写 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Form... 阅读全文
摘要：
可以修改如下： 或者如下： 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms... 阅读全文
摘要：
开发数组的参数赋值和传参如下： 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, ... 阅读全文
摘要：
按值传递，会在函数内复制一个变量，不会改变外部参数的值。 按址传递，需要在参数上写var标识符，会改变外部传入参数的值。 如下图： 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classe... 阅读全文
摘要：
如果程序 A 调用程序 B，而程序 B 又调用程序 A，当我们开始撰写这 个程序代码的时候，我们等于是在呼叫一个编译程序还没看到的程序。 在这个情形下(还有很多情形也会有类似的情况发生)，我们可以先宣告一个 函式或者程序， 把完整的名称、 参数都宣告好， 但不用提供完整的程序代码。 要做到这一点，我们只要把完整的程序或函数名称宣告写好，最后加上一个 forward... 阅读全文
摘要：
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(... 阅读全文
摘要：
Dec 把参数一的数据递减，如果有参数二，则把参数一递减 参数二所述的数值 Inc 把参数一的数据递增，如果有参数二，则把参数一递增 参数二所述的数值 Odd 回传参数数据是否为奇数，如果要测试是否为偶数，请 直接加个 not 在前面做反向运算即可：not Odd Pred 回传参数数据的前一个数值，系统会依据参数型别来判... 阅读全文
摘要：
关键代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; ... 阅读全文
摘要：
1.按Ctrl+D 可以格式化代码 2.注释方法如下： { 这里面的文字都是批注 } (* 这是第二段批注 *) // 从左边出现了两个斜线以后，到本行的末端都会被视为批注 阅读全文
摘要：
1.新建多设备运用程序工程 2.选择空白的运用 3.代码如下，点击运行，可以看到运行平台 关键代码： 1 procedure TForm1.Button1Click(Sender: TObject); 2 begin 3 {$IFDEF IOS} 4 ShowMessage ('Running on ... 阅读全文
摘要：
1.新建工程，选择New->Other 2.选择Console Applicat 3.写好以下代码 ，点击绿色三角运行 阅读全文
摘要：
Delphi xe8的结构体支持 Create ，但是不支持 free，挺棒的。type TValuePair = record Name: string; Value: string; constructor Create(const AName, AValue: string... 阅读全文
摘要：
procedure TForm1.Button2Click(Sender: TObject);var m_Str: string; m_StrList: TArray; I:Integer;begin m_Str := Memo1.Text; m_StrList := m_Str.Spli... 阅读全文
摘要：
Dephi QQ群:325010556Delphi XE8内置了Castalia这个渣渣如图：IDE时不时的卡死闪退，而且拉线各种Bug，如果：怎么去掉这个渣渣呢 ？ 方法是有的 ，如图，在打开的快捷方式图标右键，设置如下我们再次打开Delphi XE8，就不再显示Castalia这个渣渣了世界清静... 阅读全文
摘要：
Delphi爱好者们的福音！还在为没有IOS开发环境苦恼吗？想开发iphone程序吗？不需要花上万元买Mac设备，不需要花五六千买iphone设备。只需要20元，对！20元，买不了吃亏，也买不了上当。花20元买我的虚拟机，你便可以轻松拥有:全新的VM+全新的Mac系统+全新的iphone模拟器，解压... 阅读全文
摘要：
http://www.iconfinder.com/各种美丽的图标http://www.easyicon.net 美丽的图标 阅读全文
摘要：
1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, 7 Winapi.Messages, 8 System.SysUtils, 9 System.Variants,10 System.Classes,11 Vcl... 阅读全文
摘要：
program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils;TYPE Trec = record Member1, Member2: Integer; end;CONST IntRec: Trec = (Member1: 55; Member2: 2);begin Writeln(IntRec.Membe... 阅读全文
摘要：
program Test;{$APPTYPE CONSOLE}uses System, System.SysUtils; const Value: array[0..5] of Byte = (5, 72, 101, 76, 76, 111); { Old ShortString representation of 'Hello' } type EShortStringConvert... 阅读全文
摘要：
从去年10月15号下载Delphi XE5开始到今天整整和Delphi相处7个月了。感觉我越来越离不开Delphi了 ，各种在网上搜索Delphi的论坛，控件，IDE增强工具，各种资料教程。注定了这辈子与Delphi的不解之缘，希望Delphi越来越好，自己也能借Delphi创造出一点价值。 阅读全文
摘要：
不同的类有不同的成员，一般子类的成员是在父类的成员的后面增加了新的成员，如果子类转为父类，那这些新增加的成员虽然还存在，但是就不可以访问得到了。如果父类转为子类，那可能导致不可预知的错误，因为某个成员的指针指向的地址根本就不是具有实际成员。类型的转换也有很多类的，有隐性的和显性的，一些专用的类型转换... 阅读全文
摘要：
string string = AnsiString = 长字符串，理论上长度不受限制，但其实受限于最大寻址范围2的32次方=4G字节； 变量Str名字是一个指针，指向位于堆内存的字符序列，字符序列起始于@Str[1]，@Str[1]偏移负16个字节的空间存储着字串长度、引用计数等信息。字符序列... 阅读全文
摘要：
类型转换:function ToBoolean: Boolean;function ToInteger: Integer;function ToSingle: Single;function ToDouble: Double;function ToExtended: Extended;class f... 阅读全文
摘要：
Delphi技术交流论坛 http://www.taozhenweb.com每次启动的时候，都会有N多的欢迎界面，然后手工的关掉，麻烦。我删掉注册表，删掉Delphi目录的欢迎页面的内容都没用。Delphi自动恢复注册表，然后欢迎界面出现Error。群里面一个朋友告诉我我 ，在快捷方式的后面，添加 ... 阅读全文
摘要：
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); p... 阅读全文
摘要：
program Project1;{$APPTYPE CONSOLE}uses SysUtils;var MyArr: array[0..3,0..1] of Integer = ((1,2),(4,3),(22,31),(56,10)); I1,I2: Integer;begin for I1 := 0 to High(MyArr) do begin for I2 := 0 to High(MyArr[I1]) do begin Writeln(MyArr[I1][I2]); end; end; Readln;end. 阅读全文
摘要：
{反向查找字符串}function TForm1.ReversePos(SubStr, S: String): Integer;var TemPos : Integer; //查找到的位置begin{把每个字符串都反过来，再pos找地址} TemPos := Pos(ReverseString(SubStr), ReverseString(S)); if TemPos > 0 then {得到正序位置} TemPos := Length(S) - TemPos - Length(SubStr) + 2; Result := TemPos;end; 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) grp1: TGroupBox; edt1: TEdit; btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; procedure btn1Click(Sender: TObject); ... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActnList, ComCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; grp1: TGroupBox; btn2: TButton; grp2: TGroupBox; lbl1: TLabel; actlst1: TActionList; l... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids;type TForm1 = class(TForm) tv1: TTreeView; Button1: TButton; Button2: TButton; tv2: TTreeView; Button3: TButton; Button4: TButton; StringGrid... 阅读全文
摘要：
要点:1.代码备注的超级详细，如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) lv1: TListView; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; ... 阅读全文
摘要：
很想搞网络编程，Indy，Sockets，但是明显感觉到自己功力不够，源码都看不懂，慢慢来。。。不要太着急了。。。。浪费了1天时间。。。hold！！ 阅读全文