Mehrdimensionales Array an anderes anhängen

[Bjoerk]

Du könntest dir auch überlegen eine eigene Liste zu schreiben die die gewünschten Funktionalitäten hat. Die kann ja intern mit deinem Array arbeiten?

Delphi-Quellcode:

  TFloatPoint = record
    X, Y: double;
    procedure Clear;
  end;

  TFloatPoints = class
  private
    FItems: array of TFloatPoint;
    function GetItems(Index: integer): TFloatPoint;
    procedure SetItems(Index: integer; const Value: TFloatPoint);
  public
    function Count: integer;
    function Add(const Value: TFloatPoint): integer;
    procedure Insert(const Index: integer; const Value: TFloatPoint);
    procedure Delete(const Index: integer);
    procedure AddPoints(Value: TFloatPoints);
    procedure Assign(Value: TFloatPoints);
    procedure LoadFromFile(const FileName: string);
    procedure SaveToFile(const FileName: string);
    procedure Draw(const Canvas: TCanvas; const ppMM: double);
    procedure Clear;
    property Items[Index: integer]: TFloatPoint read GetItems write SetItems; default;
    destructor Destroy; override;
  end;