Delphi：课堂记录

Question

以下情况：

type
  TRec = record
    Member : Integer;
  end; 

  TMyClass = class
  private
    FRec : TRec;
  public
    property Rec : TRec read FRec write FRec;
  end;

以下不起作用（无法分配左侧），这没关系，因为TRec 是一个值类型：

MyClass.Rec.Member := 0;

在 D2007 中，虽然以下方法有效：

with MyClass.Rec do
  Member := 0;

不幸的是，它在 D2010 中不起作用（我认为它在 D2009 中也不起作用）。第一个问题：为什么会这样？是不是故意改的？还是只是其他一些变化的副作用？ D2007 解决方法只是一个“错误”吗？

第二个问题：您如何看待以下解决方法？使用安全吗？

with PRec (@MyClass.Rec)^ do
  Member := 0;

我在这里谈论的是现有代码，因此必须对其进行的更改应该是最小的。

谢谢！

Answer 1

那个

MyClass.Rec.Member := 0;

不编译是设计使然。曾经编译过的两个“with”结构都只是（AFAICT）的疏忽。所以两者都不“可以安全使用”。

两个安全的解决方案是：

1. 将MyClass.Rec 分配给您操作并分配回MyClass.Rec 的临时记录。
2. 将TMyClass.Rec.Member 单独公开为属性。

Answer 2

在某些需要“直接操作”类记录的情况下，我经常采用以下方法：

PMyRec = ^TMyRec;
TMyRec = record
  MyNum : integer
end;

TMyObject = class( TObject )
PRIVATE
  FMyRec : TMyRec;
  function GetMyRec : PMyRec;
PUBLIC
  property MyRec : PMyRec << note the 'P'
    read GetMyRec;
end;

function TMyObject.GetMyRec : PMyRec; << note the 'P'
begin
  Result := @FMyRec;
end;

这样做的好处是您可以利用 Delphi 自动取消引用来使可读的代码访问每个记录元素，即：

MyObject.MyRec.MyNum := 123;

我不记得了，但也许 WITH 可以使用这种方法 - 我尽量不使用它！ 布赖恩

Answer 3

不能直接赋值的原因是here.
至于 WITH，它仍然可以在 D2009 中使用，我希望它也可以在 D2010 中使用（我现在无法测试）。
更安全的方法是直接暴露记录属性，正如艾伦在上述 SO post 中建议的那样：

property RecField: Integer read FRec.A write FRec.A;

Answer 4

记录是值，它们不是实体。

它们甚至具有逐个复制的语义！这就是为什么您不能就地更改属性值的原因。因为它会违反 FRec 的值类型语义并破坏依赖于它是不可变的或至少是安全副本的代码。

他们的问题是，为什么你需要一个值（你的 TRec）来表现得像一个对象/实体？

如果“TRec”是你使用它的目的，那么将它作为一个类不是更合适吗？

我的观点是，当您开始使用超出其意图的语言功能时，您很容易发现自己处于必须在每米使用工具的情况下。

Answer 5

它被改变的原因是它是一个编译器错误。它编译的事实并不能保证它会起作用。 一旦将 Getter 添加到属性中，它就会失败

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FPoint: TPoint;
    function GetPoint: TPoint;
    procedure SetPoint(const Value: TPoint);
    { Private declarations }
  public
    { Public declarations }
    property Point : TPoint read GetPoint write SetPoint;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  with Point do
  begin
    X := 10;
    showmessage(IntToStr(x)); // 10
  end;

  with Point do
    showmessage(IntToStr(x)); // 0

  showmessage(IntToStr(point.x)); // 0
end;

function TForm2.GetPoint: TPoint;
begin
  Result := FPoint;
end;

procedure TForm2.SetPoint(const Value: TPoint);
begin
  FPoint := Value;
end;

end.

你的代码会突然中断，你会首先责怪 Delphi/Borland 允许它。

如果您不能直接分配属性，请不要使用 hack 来分配它 - 它总有一天会反悔。

使用 Brian 的建议返回一个指针，但去掉 With - 你可以很容易地做 Point.X := 10;

Answer 6

另一种解决方案是使用辅助函数：

procedure SetValue(i: Integer; const Value: Integer);
begin
  i := Value;
end;
SetValue(MyClass.Rec.Member, 10);

但它仍然不安全（参见 Barry Kelly 关于 Getter/Setter 的评论）

/Edit：下面是最丑陋的黑客（也可能也是最不安全的），但它太有趣了，我不得不发布它：

type
  TRec = record
    Member : Integer;
    Member2 : Integer;
  end;

  TMyClass = class
  private
    FRec : TRec;
    function GetRecByPointer(Index: Integer): Integer;
    procedure SetRecByPointer(Index: Integer; const Value: Integer);
  public
    property Rec : TRec read FRec write FRec;
    property RecByPointer[Index: Integer] : Integer read GetRecByPointer write SetRecByPointer;
  end;

function TMyClass.GetRecByPointer(Index: Integer): Integer;
begin
  Result := PInteger(Integer(@FRec) + Index * sizeof(PInteger))^;
end;

procedure TMyClass.SetRecByPointer(Index: Integer; const Value: Integer);
begin
  PInteger(Integer(@FRec) + Index * sizeof(PInteger))^ := Value;
end;

假设记录的每个成员都是 (P)Integer 大小的，否则会导致 AV 崩溃。

  MyClass.RecByPointer[0] := 10;  // Set Member
  MyClass.RecByPointer[1] := 11;  // Set Member2

您甚至可以将偏移量硬编码为常量并通过偏移量直接访问

const
  Member = 0;
  Member2 = Member + sizeof(Integer);  // use type of previous member

  MyClass.RecByPointer[Member] := 10;

    function TMyClass.GetRecByPointer(Index: Integer): Integer;
    begin
      Result := PInteger(Integer(@FRec) + Index)^;
    end;

    procedure TMyClass.SetRecByPointer(Index: Integer; const Value: Integer);
    begin
      PInteger(Integer(@FRec) + Index)^ := Value;
    end;

MyClass.RecByPointer[Member1] := 20;