用于记录属性的DWScript setter

Question

我的问题很简单。我有一个dwsUnit，它有这个代码:

type
  TPointCoord = record
    X: Float;
    Y: Float;
    Z: Float;
  end;
type
  TMyClass = class
  private
    fPosition: TPointCoord;
    function GetPosition: TPointCoord;
    procedure SetPosition(Val: TPointCoord);
  public
    property Position: TPointCoord read GetPosition write SetPosition;
    constructor Create;
end;
function TMyClass.GetPosition: TPointCoord;
begin
  Result := fPosition;
end;
procedure TMyClass.SetPosition(Val: TPointCoord);
begin
  fPosition := Val;
end;
constructor TMyClass.Create;
begin
  inherited Create;
  fPosition.X := 1;
  fPosition.Y := 2;  
  fPosition.Z := 3;    
end;
var
  mc: TMyClass;
begin
  mc := TMyClass.Create;
  mc.Position.X := 2;   //Syntax Error
end.

At mc.Position.X(或Position. x)Y或Z)我得到:

Syntax Error: Cannot assign a value to the left-side argument [line: 42, column: 17]

这是什么意思?如果是属性，记录是只读的吗?以及我如何从特尔斐那边进入。(第二个问题，没什么大不了的)

Answer 1

出现此错误的原因是您使用了record类型的属性。

记录类型是值类型，这意味着它在赋值时被复制而不是被引用(像类一样)，所以返回记录的函数(或属性)将复制并返回不同的记录。

所以你的行

mc.Position.X := 2

等于

temp := mc.getPosition;
temp.X := 2;

与"temp"是不同的变量/存储从fPosition，所以代码不会改变fPosition。X，它只会"隐藏"临时副本的X字段。

由于这通常不太可能是您所追求的，DWS编译器，就像Delphi一样，抛出一个错误。

典型的解决方案是提供一个独特的PositionX属性，它将提供对fPosition的X字段的访问，如

property PositionX : TPointCoord read (FPosition.X) write (FPosition.X);

或者你可以使用显式的getter/setter，如果你需要分配多于X的字段。

另一个解决方案是使用引用类型(类f.i.)，尽管这对于位置或坐标可能不太实用。

Answer 2

虽然LHirstov代码可以与DWScript一起工作，但相同的特定代码可能不适用于某些旧版本的Delphi。

因此，对于那些使用旧版本Delphi的人，我建议简单地向TmyClass添加更多属性，而不是修改记录。

您所需要的只是添加三个新属性(每个位置参数一个)，然后定义它们的Getter/Setter方法来单独修改这些特定的参数。

type
  TPointCoord = record
    X: Float;
    Y: Float;
    Z: Float;
  end;
  TMyClass = class
  private
    fPosition: TPointCoord;
    function GetPosition: TPointCoord;
    function GetPositionX: Float;
    function GetPositionY: Float;
    function GetPositionZ: Float;
    procedure SetPosition(Val: TPointCoord);
    procedure SetPositionX(Val: Float);
    procedure SetPositionY(Val: Float);
    procedure SetPositionZ(Val: Float);
  public
    property Position: TPointCoord read GetPosition write SetPosition;
    property PositionX: TPointCoord read GetPositionX write SetPositionX;
    property PositionY: TPointCoord read GetPositionY write SetPositionY;
    property PositionZ: TPointCoord read GetPositionZ write SetPositionZ;
    constructor Create;
end;
function TMyClass.GetPosition: TPointCoord;
begin
  Result := fPosition;
end;
procedure TMyClass.SetPosition(Val: TPointCoord);
begin
  fPosition := Val;
end;
function TMyClass.GetPositionX: Float;
begin
  Result := fPosition.X;
end;
procedure TMyClass.SetPositionX(Val: Float);
begin
  fPosition.X := Val;
end;

function TMyClass.GetPositionX: Float;
begin
  Result := fPosition.Y;
end;
procedure TMyClass.SetPositionY(Val: Float);
begin
  fPosition.Y := Val;
end;
function TMyClass.GetPositionX: Float;
begin
  Result := fPosition.Z;
end;
procedure TMyClass.SetPositionZ(Val: Float);
begin
  fPosition.Z := Val;
end;

最后你可以使用

来访问特定的位置参数

mc.PositionX := 2;

现在你可能会问自己，我还需要旧的位置属性吗?虽然从技术上讲您不需要它，但当您需要读取或写入整个位置记录时，它仍然会派上用场。

Answer 3

你有TPointCoord类型的属性，你想只分配X coord，这就是为什么你有一个错误。如果你想分别处理X,Y和Z，那么你必须为它们每个分配属性。下面是一个关于X的例子:

type
  TPointCoord = record
  private
    fX: real;
    fY: real;
    fZ: real;
    function GetX: real;
    procedure SetX(value: real);
  public
    property X: real read GetX write SetX;
  end;
function TPointCoord.GetX: real;
begin
  Result:=fX;
end;
procedure TPointCoord.SetX(value: Real);
begin
  fX:=Value;
end;

使用上面的示例，语句mc.Position.X := 2;将是OK的。