Массив как private поле класса - Delphi - Ответ 16521015

  TMyMatrix = class
  private
    FMatrix: array of array of integer;
    procedure SetMatrixValue(i, j, Value: integer);
    function GetMatrixValue(i, j: integer): integer;
  public
    property MatrixValue[i, j: integer]: integer read GetMatrixValue write SetMatrixValue;
    procedure SetSize(m, n: integer);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TMyMatrix }
 
function TMyMatrix.GetMatrixValue(i, j: integer): integer;
begin
  if (i >= Low(FMatrix)) and (i <= High(FMatrix)) and
     (j >= Low(FMatrix[Low(FMatrix)])) and (j <= High(FMatrix[Low(FMatrix)])) then
    Result := FMatrix[i, j]
  else
    Result := 0;
end;
 
procedure TMyMatrix.SetMatrixValue(i, j, Value: integer);
begin
  if (i >= Low(FMatrix)) and (i <= High(FMatrix)) and
     (j >= Low(FMatrix[Low(FMatrix)])) and (j <= High(FMatrix[Low(FMatrix)])) then
    FMatrix[i, j] := Value;
end;
 
procedure TMyMatrix.SetSize(m, n: integer);
begin
  if (m >0) and (n > 0) then
    SetLength(FMatrix, m, n);
end;
 
// И использование
procedure TForm1.Button1Click(Sender: TObject);
var
  m: TMyMatrix;
begin
  m := TMyMatrix.Create;
  m.SetSize(2, 2);
  m.MatrixValue[1, 0] := 244;
  m.MatrixValue[1, 1] := 123;
  Label1.Caption := IntToStr(m.MatrixValue[1, 0]);
 
  FreeAndNil(m);
end;