Dynamisches Array indizieren

[DelphiManiac]

Hallo,

ich brauche für meine Anwendung ein 2 Dimensionales dynamisches Array.
Ich lese eine Datei aus, und weiß weder am Anfang wieviel Zeilen, noch wieviel ASCII's drin stehen.

Delphi-Quellcode:

..
var
  DynArr:array of array of byte;
begin
 SetLengt(DynArr,10); // 10 Zeilen
 Set...               // 30 Zeichen???
...

Wie kann ich nun mein Array indizieren, so dass es Beispiel:
eine Größe von DynArr[1..10][1..30] hat.
Will das natürlich zur Laufzeit machen (deshalb ja dynamisch).
Hoffe ihr habt mein Prob verstanden.

Danke schonmal im Vorraus

Gruß
DelphiManiac

[fwsp]

Zitat von Delphi 7 Hilfe:

Zur Deklaration von mehrdimensionalen dynamischen Arrays verwenden Sie aufeinander folgende array of ...-Konstruktionen. Ein Beispiel:

Delphi-Quellcode:

type TMessageGrid = array of array of string;
var Msgs: TMessageGrid;

Hier wird ein zweidimensionales String-Array deklariert. Um dieses Array zu instantiieren, rufen Sie SetLength mit zwei Integer-Argumenten auf. Wenn beispielsweise I und J Integer-Variablen sind, wird Speicherplatz für ein I mal J großes Array zugewiesen:

SetLength(Msgs,I,J); Msgs[0,0] bezeichnet dann ein Element dieses Arrays.

Sie können auch mehrdimensionale dynamische Arrays anlegen, die nicht gleichförmig sind. Rufen Sie dazu als Erstes die Funktion SetLength auf, und übergeben Sie ihr Parameter für die ersten n Dimensionen des Arrays:

Delphi-Quellcode:

var Ints: array of array of Integer;
SetLength(Ints,10);

Mit dieser Anweisung weisen Sie dem Array Ints Speicherplatz für zehn Zeilen zu. Den Speicher für die Spalten können Sie später einzeln zuweisen (und dabei unterschiedliche Längen angeben):

SetLength(Ints[2], 5); Die dritte Spalte von Ints kann damit fünf Integer-Werte aufnehmen, und Sie können ihr nun Werte zuweisen (auch wenn die anderen Spalten nicht zugewiesen sind), z. B. Ints[2,4] := 6.

Im folgenden Beispiel wird mithilfe von dynamischen Arrays (und der in der Unit SysUtils deklarierten Funktion IntToStr) eine ungleichförmige String-Matrix erstellt:

Delphi-Quellcode:

var
  A : array of array of string;
  I, J : Integer;
begin
  SetLength(A, 10);
  for I := Low(A) to High(A) do
  begin
    SetLength(A[I], I);
    for J := Low(A[I]) to High(A[I]) do
      A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
  end;
end;

[Tormentor32]

Delphi-Quellcode:

SetLengt(DynArr,10);
for i := 0 to 9 do
SetLength(DynArr[i],30));

edit: War zu langsam

[DelphiManiac]

Hi,

Danke für die schnelle Antwort!!!
Also gibt es doch eine überladene Funktion von SetLength!!

Irgendwie war das aus der Delphi-Hilfe nicht so ersichtlich....

Naja danke nochmal

[Christian Seehase]

Moin DelphiManiac,

Zitat von DelphiManiac:

Also gibt es doch eine überladene Funktion von SetLength!!

Jein.
Diese Funktion basiert auf Compiler-Magic (wie, z.B. auch Inc, Dec), sie existiert so als Funktion nicht.

[DelphiManiac]

Hallo,

ja stimmt da hast du Recht,

hab noch ne andere Frage:

Wie bekomme ich zur Laufzeit die Größe meiner 2 Dimensionen des Arrays heraus??

[Flare]

Delphi-Quellcode:

rows := high(DynArray)+1;
cols := high(DynArray[0])+1;

Musst nur aufpassen, wenn DynArray noch 0 Elemente hat...also davor das abfangen

Flare

[halinchen]

Length(Array); Oder halt die 2 Dimension von:
Length(Array[x]); Wobei x für das Element steht, wessen Dimension du rausbekommen möchtest und Array für deinen Array.