Mehrdimensionale Arrayübergabe

Leto · Beiträge: 98 XP D7 Enterprise

Anfängerproblem. Wahrscheinlich schnell gelöst, nur ich vermag es nicht zu finden:

Wie übergebe ich ein zweidimensionales statisches Array in eine Prozedur. Die Prozedur soll aber bezüglich der Array-Größe nicht eingeschränk werden.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure init(feld: array of array of Boolean);
var
  i : Integer;
  j : Integer;
begin
  for i := 1 to length(feld) do begin
    for j:= 1 to length(feld[i]) do begin
      //was auch immer...
    end;
  end;
end;

Dieser Code haut nicht. Erkennt der Compiler dies als statisches Array an, wenn ich ein solchen übergebe?

Moderiert von tommie-lie: PHP- durch Delphi-Tags ersetzt: bei uns gibt's keinen PHP-Highlighter und selbst wenn, der Code da oben ist nicht PHP sondern Delphi Language ;-)

_________________
Carpe Noctem

Dr. Phil · Beiträge: 66 Win XP Delphi 7 Prof.

Hallo!
Du kannst Arrays nicht als Parameter übergeben, sondern musst einen Typ dafür erstellen.

markieren

Delphi-Quelltext

1:
2:

type
  TFeld = Array of Boolean;

Wenn du nicht von der Größe des Arrays eingeschränkt werden willst, kannst du dynamische Arrays verwenden, denen du nachher zur Laufzeit mit SetLength(); die Größe zuweist.
Nur ob das jetzt auch mit dem Typ geht...

Ach es kann natürlich auch sein, dass das alles hier nicht stimmt, bin schon ein wenig eingerostet :roll:

_________________
self-improvement is masturbation;
self-destruction is the answer - Tyler Durden

Leto · Beiträge: 98 XP D7 Enterprise

Danke. Tatsächlich es kompiliert sich. Aber irgendwie bemerke ich gerade dass Array nich call-by-Referbce übergeben werden. Zumindets scheint mir dies so, denn ein übergebenden und dort verändertes Array hat kein Einfluss auf die "Original"-Instanz. Hmmm.. wie macht man sowas in Delphi denn. Komme aus der Java, C++ Welt.

_________________
Carpe Noctem

Dr. Phil · Beiträge: 66 Win XP Delphi 7 Prof.

Naja bei Variablenparametern, also Parameter deren Inhalt auch nach Abschluss der Prozedur erhalten bleiben soll, schreibt man ein var davor.

markieren

Delphi-Quelltext

1:	procedure Demo(var Feldchen: TFeld);

_________________
self-improvement is masturbation;
self-destruction is the answer - Tyler Durden

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure init(var feld: array of array of Boolean); // <--- Hier das Wörtchen Var rein,
// evt auch in der Forwarddeklaration einfügen
var
  i : Integer;
  j : Integer;
begin
  for i := 1 to length(feld) do begin
    for j:= 1 to length(feld[i]) do begin
      //was auch immer...
    end;
  end;
end;

fritierte · Beiträge: 58

markieren

Delphi-Quelltext

1:
2:
3:

procedure init(var feld:TFeld);
begin
end;

das müsste das sein, was du wolltest, probiers mal aus

Leto · Beiträge: 98 XP D7 Enterprise

Großartig.
So kommt man weiter.
Vielen Dank!

_________________
Carpe Noctem

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme