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.