如何创建只读属性？

Question

我在运行时使用TMS对象检查器,但假设我的问题在设计时对Delphi同样有效.

我希望有一个可以通过编程(运行时)或硬编码(在设计时)设置的属性.它应该对用户可见,因为信息对他有用,并且应该在程序运行时更改,而不是由用户通过对象检查器更改.

我试过了

published property FileName : String read FFileName;

并且该属性是可见的,但它也可以在对象检查器中更改(并在更改时抛出读取地址zer0异常):-(

Answer 1

这看起来像一个完全有效和正确的只读属性

published property FileName : String read FFileName;

如果你添加一个公共的额外属性,因此只能在运行时设置你的业务:

public property RuntimeFilename: string read FFileName write FFilename;
//note that two properties, one published and one public point to the same field.

但是,如果您想破解它并在设计时删除异常,
请将其更改为:

//Only writable during runtime.
private
  procedure SetFileName(Value: string);
published
  property FileName: string read FFileName write SetFileName;

....
procedure TMyClass.SetFileName(Value: string);
begin
  if csDesigning in Componentstate then {do nothing}
  else FFileName:= Value;
end;

我认为也可能会发生什么......

断开设计时和运行时代码之间的连接
为了更改代码的运行时行为,您只需要更改源代码并删除write ...属性的一部分.

这不会影响设计时代码,因为您需要重新安装组件.
如果更改已注册组件的源代码并在组件的部分和/或部分中保留更改private,则通常可以. protectedpublic

但是,如果更改published组件的一部分而不重新安装该组件,则启动时将出现异常行为.

这是因为在设计时您仍在使用组件的旧/未更改的二进制版本.此版本尚未write删除该部分,并允许您更改基础字符串FFilename.

在运行时,init-code将读取表单资源1)并找到要写入FFilename的值.但是,该过程SetFilename不再可用,因此在程序启动期间会发生访问冲突.

1) (.dfm文件中的数据,现在存储在.exe中的dfm资源中)