Dynamic Array Einfache Zuweisung

[amoibos]

Hallo,
ich bin auf der Suche nach einem Konstrukt mit dem man Zuweisungen weniger umständlich gestalten kann. Dabei hab ich folgenden Hinweis gesehen, nur funktioniert der nicht mit meiner Version. Kurzum das soll der Compiler akzeptieren:

Code:

type
  TIntArray = array of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  MyArr := TIntArray.Create(10, 20, 30, 40);
end;

Stattdessen gibts:

Zitat:

Object or class type required.

[Dejan Vu]

Du deklarierst einen Vektor ('Array of integer') und willst daraus dann eine Matrix (Array of Array of integer) basteln. Das kann doch gar nicht funktionieren:

Delphi-Quellcode:

Var
  Vektor : Array of integer;
  Matrix : Array Of Integer;
  i : Integer;

begin
  SetLength(Vektor,20); // Der Vektor hat nun 20 Elemente. Vektor[0]..Vektor[19];
  SetLength (Matrix,30); // Die Matrix hat nun 30 Zeilen
  for i:=0 to Length(Matrix) do  
    SetLength(Matrix[i],40); // Jede Zeile hat 40 Spalten

Wenn Du das einfacher/anders haben willst, dann bau Dir deine Methoden nach deiner Facon.

Ich würde das sowieso nicht so machen, sondern eine Matrix hinter einem Interface/Klasse kapseln.

[bernau]

@amoibos: Du benutzt Delphi5? Die Version kann das nicht. Mit meinem XE8 funktioniert es.

[bernau]

Zitat:

Zitat von Dejan Vu (Beitrag 1317841)

Du deklarierst einen Vektor ('Array of integer') und willst daraus dann eine Matrix (Array of Array of integer) basteln.

Wo steht, daß er ein "Array of Array of integer" deklarieren will. Er will eigentlich nur eine einfache Art der Initialisierung einen eindimensionalen Arrays erreichen. Oder ich habe etwas falsch verstanden?

[mkinzler]

Record Helper, welche in dem Beispiel verwendet werden gab es aber bei D5 noch nicht. Class Helpers gab es ab D2010, record helpers kamen noch später.

[Zoot]

Komischer Thread.
In der Frage wird nirgends ein Array of Array erwähnt, und Record Helper kommen auch nirgends vor.
Von daher verwundern einige Antworten.

[Uwe Raabe]

Soweit ich weiß, gibt es diesen Array-Constructor seit D2007. Für alles darunter ist wohl Handarbeit angesagt - oder halt ein Update...

[Dejan Vu]

Zitat:

Zitat von amoibos (Beitrag 1317839)

Code:

var
  MyArr: TIntArray;
begin
  MyArr := TIntArray.Create(10, 20, 30, 40);
end;

Für mich sieht das nach einem Versuch aus, ein zweidimensionales Array zu erzeugen. Anders sind die 4 Zahlen für mich nicht erklärbar. 2D-Array => Matrix. Wenn ich falsch lag, bitte bessere Interpretation.... Ach... Ein Vektor mit vier Werten...? :wall:

Isolde! Du hast wieder den koffeinfreien Kaffee erwischt!

[HolgerX]

Mit einer kleinen Hilfsfunktion geht das schon etwas einfacher:

Delphi-Quellcode:

type
  TIntArray = array of integer;

function GetIntArray(AIntArr : array of integer):TIntArray;
begin
  setlength(result,length(AIntArr));
  move(AIntArr[0],result[0],length(AIntArr)* SizeOf(integer));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  MyArr := GetIntArray([10, 20, 30, 40]);
  // ...
end;

Sollte auch unter Delphi 5 laufen, habe es aber nur mit Delphi 6 getestet.

Alternative:

Delphi-Quellcode:

procedure FillIntArray(AIntArr : array of integer;var AMyArr : TIntArray);
begin
  setlength(AMyArr,length(AIntArr));
  move(AIntArr[0],AMyArr[0],length(AIntArr)* SizeOf(integer));
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  FillIntArray([10, 20, 30, 40], MyArr);

[bernau]

Zitat:

Zitat von Dejan Vu (Beitrag 1317855)

Isolde! Du hast wieder den koffeinfreien Kaffee erwischt!

Kenne ich! Immer wieder beruhigend, daß es anderen auch so geht. :-D