delphi7 constructor 问题

[lk_t68]

delphi2010下代码如下：
TXRegionRect = packed record
X: Integer;
Y: Integer;
Width: Integer;
Height: Integer;
public
constructor TXRegionRect(AX,AY,AWidth,AHeight: Integer);
end;

constructor TXRegionRect.TXRegionRect(AX,AY,AWidth,AHeight: Integer);
begin
X := AX;
Y := AY;
Width := AWidth;
Height := AHeight;
end;
要想在delphi7用应该怎么改？

[sololie]

d7不行吧，至少d2006

[sololie]

直接写个普通函数代替构造函数就可以了

 TXRegionRect = packed record
    X: Integer;
    Y: Integer;
    Width: Integer;
    Height: Integer;
  end;

funciton CreateTXRegionRect(AX,AY,AWidth,AHeight: Integer):TXRegionRect;

function CreateTXRegionRect(AX, AY, AWidth, AHeight: Integer): TXRegionRect;
begin
  Result.X := AX;
  Result.Y := AY;
  Result.Width := AWidth;
  Result.Height := AHeight;
end;

// 调用
var
 r:TXRegionRect;
begin
 r := CreateTXRegionRect(111, 222, 333, 444);
end;

[随行的太阳]