打赏

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 “E2064 Left side cannot be assigned to” error appeared when upgrading a project from 2009 to XE

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;

这应该是正统写法,但总感觉繁琐令人难受。

反正是少了之前版本那洒脱淋漓简洁随意的写法,蛋疼之极也!

posted on 2017-03-24 00:05  楚人无衣  阅读(2453)  评论(0编辑  收藏  举报