dynamisches array wenn array eigenes objekt

[r2c2]

Zitat von Mr. Pink:

aber das problem mit dem variabel halten der dimension bleibt... hat da wer ne idee?

Warum Arrays, wenn man auch Klassen nehmen kann? Wir haben doch die OOP...

Delphi-Quellcode:

// Pseudocode:
type
  TVarDimListDimension = class(TObjectList)
    ...
  end;

  TVariableDimList = class(TPersistent)
  private
    FDimensions: Integer = 1;
    FSize: Integer; // Länge je Dimension
    FFirstDimesion: TVarDimListDimension; // hält ggf. weitere TDimension Objekte. Die letzte Ebene hält die eigentlichen Daten
  public
    property Demensions read FDimensions write SetDimensions;
    property Size read FSize write SetSize;
    Items[Index: array of Integer] read getItem write SetItem; default; // Length(Index) = FDimensions; leider muss das zur Laufzeit geprüft wedren, aber anders gehts nicht; auch der Rage-Test muss hier gemacht wedren...
  end;

mfg

Christian