Mehrdimensionale Dynamische Arrays

[ichbins]

Hallo!

Kann mir einer sagen, wie ich ein mehrdimensionales Dynamisches Array dierekt deklarieren kann, d.h. ich will nicht
array of array of integer schreiben sondern alles mit einem Array erledigen, so wie bei den normalen Arrays mit
array [0..1,0..1] of integer

[Chewie]

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

[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 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
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