delphi7 constructor 问题

Question

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用应该怎么改？

Answer 1

直接写个普通函数代替构造函数就可以了
 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;