Wiederholtes Problem - BD7 vergißt Variableninhalte

[marabu]

Hallo E.,

du wirst eine Unit EBTypes haben:

Delphi-Quellcode:

unit EBTypes;
interface
type
  TMatrix = array of array of Extended;

Der Rest geht so wie in der Online-Hilfe beschrieben:

Delphi-Quellcode:

uses 
  // ...
  EBTypes;

interface

type
  TDemoForm = class(TForm)
  // ...
  private
    FMatrix: TMatrix;
    function GetMatrix(iCol, iRow: Integer): Extended;
    procedure SetMatrix(iCol, iRow: Integer; eValue: Extended);
  // ...
  public
    property Matrix[iCol, iRow: Integer]: Extended read GetMatrix write SetMatrix;
  end;

implementation

function TDemoForm.GetMatrix(iCol, iRow: Integer): Extended;
begin
  Result := FMatrix[iCol, iRow];
end;

procedure TDemoForm.SetMatrix(iCol, iRow: Integer; eValue: Extended);
begin
  FMatrix[iCol, iRow] := eValue;
end;

Grüße vom marabu