如何访问类的私有属性？ 下面以 TPathData 为例，它有一个私有属性 PathData，储存了每一个曲线点，但一般无法修改它，需要利用下面方法，才能访问修改（若有更好的方法，歡迎分享）： 一、利用 RTTI 取得类私有属性 （建议使用此方法） ： type TPathDataHelper = cla...

2018-06-17 18:57:42

提问：如下安装后的 TMyPanel 能在设计期时正常显示，但 TMyPanel2 在设计期时是白板，不能正常看到，为什么？ TMyPanel = class (TPanel) end ;TMyCustomPanel = class (TPanel)TMyPanel2 = class (TMyCustomPanel) end ;RegisterComponent( ' Test ' , [TMyPanel, TM...

2018-06-17 18:57:42

本文来自：http://www.cnblogs.com/hezihang/p/6083555.html Delphi采用接口方式设计模块，可以降低模块之间的耦合，便于扩展和维护。本文提供一个实现基于接口(IInterface)方式的监听器模式（观察者模式、订阅者模式），实现一个自动多播器。 下面程序在Berlin下测试...

2018-06-17 18:57:41

在函数中如果数组的个数不定，可以使用开放数组参数 实参可以接受静态数组和动态数组 procedure p1(a: array of Byte ); begin ShowMessage( IntToHex( Integer (@a), 2 )); ShowMessage(IntToStr(a[ 0 ])); end ; procedure TForm1 . btn1Click(Sender: TObject); var...

2018-06-17 18:57:41

直接上代码吧,这个示例在Excel中输出一个M 2 ： unit FfrmMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RzButton; type TfrmMain = class (TForm)...

2018-06-17 18:57:41

网络上很多前辈提供的方法大多是这样写的： procedure DeleteArrItem( var arr: TArr; Index: Integer); var Count: Cardinal; begin Count : = Length(arr); if (Count = 0 ) or (Index 0 ) or (Index = Count) then Exit; Move(arr[Index + 1 ], arr[Index], (Count-...

2018-06-17 18:57:38

JDK常用包 ： java.lang：存放系统的基础类，比如：String、Math、Integer和Thread等，提供常用功能 java.io：存放与输入输出有关的类 java.net：存放与网络有关的类，比如URL、URLConnection等 java.util：存放系统辅助类，特别是集合类 java.sql：存放数据库操作有关...

2018-06-17 18:57:37

问题：Firemonkey TFrame 存档后，下次载入某些事件连结会消失（但源码还在） 解决：（暂时方法） type TTestFrame = class (TFrame) public constructor Create (AOwner: TComponent); override ; end ; implementation { $R *.fmx } constructor TTestFrame. Create...

2018-06-17 18:57:36

TeeChart控件的安装 TeeChart 7.0 With Source在Delphi 7.0中的安装 一、删除Delphi7自带TeeChart 1、Component- install Packages 中 Remove 所有以Tee开头的包,OK,关闭Delphi7。 2、删除Delphi\Bin目录下的DclTee70.bpl; 3、删除 \Windows\System32(或System)目录的...

2018-06-17 18:57:36

在 Delphi10.2Tokyo 版里将支持 Linux 系统，先做一下学习记录： 安装 Ubuntu Server: 安装方法请参考官方教学影片： https://community.embarcadero.com/blogs/entry/setting-up-ubuntu-server-for-the-delphi-on-linux-beta Ubuntu Server 下载： https://www.ubuntu...

2018-06-17 18:57:35