Mehrdimensionale Dynamische Arrays

[ichbins]

Hallo!

Kann mir einer sagen, wie ich ein mehrdimensionales Dynamisches Array dierekt deklarieren kann, d.h. ich will nicht

Delphi-Quellcode:

array of array of integer

schreiben sondern alles mit einem Array erledigen, so wie bei den normalen Arrays mit

Delphi-Quellcode:

array [0..1,0..1] of integer

[Chewie]

:wiejetzt:

Was willst du tun? Ein dynamisches Array, das aber deklariert wird wie ein statisches?

[whiteshark]

Ich glaube er will ein mehrdimensionales dynamisches Array erstellen. (Wahrscheinlich geht setlegth nicht)

Oder :gruebel:

[Dax]

Wird nix. ;) Die Delphi-Syntax ist so wie sie ist, anders als du's geschrieben hast gehts nicht.

[bigg]

du könntest auch einen neuen Typen deklarieren...

[ichbins]

Tja scheisse gelaufen :cry: war aber auch nur eine Komfortangelegenheit weil bis jetzt hatte ich immer

Delphi-Quellcode:

type
  tvertline=array of tinhalt;
  tspielfeld=array of tvertline;

var
  spielfeld:tspielfeld;

Dann musste ich aber beim setlength immer so hantieren:

for i:=0 to length(spielfeld)-1 do
setlength(spielfeld[i],xyz);

Das wird dann wohl auch so bleiben müssen.

[Keldorn]

Hallo

geht auch in einem Rutsch

Delphi-Quellcode:

setlength(Spielfeld,xAnzahl,YAnzahl);

Deine Variante brauchst du nur, wenn du z.B. jedem XWert (i) eine unterschiedliche Anzahl von "Items" zuweisen willst.

Mfg Frank

[Pr0g]

Ich hätte das Beispiel wohl schneller schreiben sollen, nun ist man mir zuvor gekommen, aber egal ;)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fMap: Array of Array of Integer;
  i, j,
  fCount: Integer;
  s: String;
begin
  // Länge festlegen
  Setlength(fMap, 2, 4);

  // Beispielwerte reinschreiben
  fCount := 0;
  for i := Low(fMap) to High(fMap) do
  begin
    for j := Low(fMap[i]) to High(fMap[i]) do
    begin
      fMap[i, j] := fCount;
      Inc(fCount);
    end;
  end;

  // Und in ein Memo auslesen
  Memo1.Clear;
  for i := Low(fMap) to High(fMap) do
  begin
    s := '';
    for j := Low(fMap[i]) to High(fMap[i]) do
      s := s + IntToStr(fMap[i, j]) + ' ';
    Memo1.Lines.Add(s);
  end;
end;

MfG Pr0g