Delphi Verwenden eines 2d-Arrays definiert durch statische Array

Question

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls; 

type 
    StaticArray = Array[0..1000] of Double; 
    TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 
    DArray: Array of StaticArray; 
    Length : Integer; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Length:=5; 
Setlength(DArray, Length); 
end; 

end. 

Wenn ich versuche Setlänge() zu verwenden, um die Länge des 2DArray zu definieren, gibt es mir keinen Fehler oder nichts.

Ich erwarte, dass das Ergebnis ein Array mit 1000 Spalten und Länge Anzahl der Zeilen sein wird. Allerdings ist das Ergebnis nur 1 Zeile mit 1001 Spalten.

Irgendeine Idee warum?

Ich brauche das Array auf diese Weise definiert werden, aber ich bin fest, wie man die Länge des Array festlegen.

* Anzahl der Spalten bearbeiten, 0..1000, was zu 1001 Spalten addiert.

* Edit2 Der Code ein wenig mehr behoben.

* Edit3 Hergestellt ein besseres Beispiel

Answer 1

ich Ihren Code überprüft haben, links absichtlich die gleiche ID Length. Code funktioniert wie erwartet:

procedure TForm1.Button20Click(Sender: TObject); 
type 
    StaticArray = Array[0..1000] of Double; 
var 
    DArray: Array of StaticArray; 
    Length : Integer; 
begin 
    Length := 5; 
    SetLength(DArray, Length); 
    Caption := IntToStr(High(DArray)); //ouputs 4 

    //note bad usage of Length var, so we can not use Length intrinsic function 

    DArray[3, 1000] := 42; 
end;