1. 起源
此问题源于[秋风人事档案管理系统]用Delphi XE重编译中所发现。
快十年了,当初Delphi 7所编写项目,想用Delphi XE重新编译,并打算做为Free软件发布,编译错误中发现此问题,感觉颇有些意思,遂记录下来,以做备忘。
自Delphi 2009之后我转做c#之WinForm界面开发,Delphi 2010之后未实际做过项目,因此至此才遇到此问题。
此时Delphi XE更新已至XE10版。因情结而不愿XE2之后的use方法,遂决定以Delphi XE做为工具,重整老项目。
而此问题简而言之,就是当记录体(record)做为属性出现时,其赋值可否问题。
2. 赋值
比如,我有一记录体属性如下(这里以TPoint说明问题,实际项目中为自定义记录体):
type TForm1 = class(TForm) btnTest: TButton; procedure btnTestClick(Sender: TObject); private { Private declarations } FPoint: TPoint; public { Public declarations } property Point: TPoint read FPoint write FPoint; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnTestClick(Sender: TObject); begin //Point.X := 12; //如此赋值不成功,报错为Left side cannot be assigned to //Point.Y := 12; with Point do begin X := 12; Y := 12; end; ShowMessage(Format('x: %d, y: %d', [Point.X, Point.Y])); end;
直接赋于做为属性的record值,比如Point.X := 12,编译都不能通过。我们可以理解为面向对象封装问题不允许操作其内部数据,因为记录体为值类型。
但事有折中,借with语句,即可方便赋值。所以在以往项目中,多用此写法,简洁而方便,而这种写法在Delphi 2009及之前版本,都支持,可能是Delphi编译器的BUG吧!
如果是,我倒是喜欢这个BUG,它简洁了我的写法,特别是属性有多级嵌套时。
3. 不再支持
Delphi命运多舛,像个不能决定自己命运的小姑娘一样被卖来卖去。工作原因换了开发工具,十多年的Delphi开发从此搁置,不曾想其间多少变故,如今再用,细微变化已别于昔时。
如上面代码,用with语句赋值,也行不通了,报错为[DCC Error] Unit1.pas(34): E2064 Left side cannot be assigned to.
baidu看有没有人类似疑惑?可能国内用Delphi渐少原因吧,竟没找到类似问题,于是stackoverflow一下,果然碰到一根筋的难兄难弟:
Left side cannot be assigned for a record type
Delphi 2010+ and “Left side cannot be assigned to” in read-only records: can this be disabled?
看诸回复,大意是Delphi 2010及以后版本其编译器检查比以前更为严格,其中还有人感谢这样更改。讨论比较热烈,说啥的都有。日!
与提问者一样,我只想简单地做为属性以记录需的的数据,仅此而已。这是一个完全有效的语言特性,就这样给干了,这是实实在在的历史退步。
4. 解决方法
这条路关闭了,总还有其它路,上帝关上了门,他还是要留下一扇窗呢是不是?编译器想必真是处理属性为Get、Set方式,而加以特别处理?
总结下吧!如果还想用此方法,就折中下:
a. 直接换属性为字段,即
property Point: TPoint read FPoint write FPoint;
换为Point: TPoint;
这条方法违背于面向对象封装,不好,但能用。
b. 若是自定义record,可换为class,这思路中。
c. 以指针方式去赋值:
procedure TForm1.btnTestClick(Sender: TObject); begin with PPoint(@Point)^ do begin X := 12; Y := 12; end; ShowMessage(Format('x: %d, y: %d', [Point.X, Point.Y])); end;
我个人倾向于这个。自定义记录体,再定义个指向它的指针结构,就可以了。
d. 以临时变量代之,反赋回去:
procedure TForm1.btnTestClick(Sender: TObject); var p: TPoint; begin with p do begin X := 12; Y := 12; end; Point := p; ShowMessage(Format('x: %d, y: %d', [Point.X, Point.Y])); end;
这应该是正统写法,但总感觉繁琐令人难受。
反正是少了之前版本那洒脱淋漓简洁随意的写法,蛋疼之极也!