property für zweidimensionale Arrays

[Jens Schumann]

Hallo,
da ich Deinen Ansatz so nie verwenden würde habe ich Dir mal ein Beispiel
gebastelt. D.h. so würde ich das Problem lösen. Dyn. Array's würde ich nur mir einer
Pistole am Kopf verwenden.

Delphi-Quellcode:

  TArrayElement = class(TObject)
  private
    FDouble: Double;
  public
    property Value : Double read FDouble write FDouble;
  end;

  TArrayElements = class(TObject)
  private
    FList    : TList;
    FXCount  : Integer;
    FYCount  : Integer;
    function GetCount: Integer;
    function GetItem(X, Y: Integer): TArrayElement;
    procedure AddNullElement;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Clear;
    procedure Size(XSize, YSize : Integer);
    property Element[X,Y : Integer] : TArrayElement read GetItem; default;
    property XCount : Integer read FXCount;
    property YCount : Integer read FYCount;
  end;

TArrayElement repräsentiert ein Element das Array's.
TArrayElements verwaltet die einzelnen Elemente.
Im Beipsiel findest Du den hier fehlenden Code.

P.S. Real gibt es nur noch aus kompatibilitäts Gründen. Verwende besser Double.