Arrayvariable

[daNiii]

Hallo!
in meinem Programm hätte ich gerne eine arrayvariable verwendet,
diese soll aber variable bleiben.

hier mein Beispiel:
ich definiere die Variable:
Feld: array[0..10, 0..12]
ich möchte aber anstatt des 10ers oder des 12 eine Variable eingeben.
funktioniert aber nicht, da ein Konstantaursdruck benötigt wird.

Weis jemand wie man diese Fehlermeldung umgehen kann?

[Tryer]

Mehrdimensionale dynamische Arrays:

Delphi-Quellcode:

MyArray : array of array of Foo;
SetLength(MyArray, 10, 12);

[himitsu]

Zitat:

Zitat von daNiii

ich möchte aber anstatt des 10ers oder des 12 eine Variable eingeben.
funktioniert aber nicht, da ein Konstantaursdruck benötigt wird.

Ähhh, was möchtest du genau machen?
Zeig mal bitte etwas Code, von dem was der Compiler nicht wollte, denn ich kann mir da grad einfach nichts unter dieser Beschreibung vorstellen.

[daNiii]

Delphi-Quellcode:

Spalten, Zeilen: integer;  (globale Variablen

procedure TForm1.FormShow(Sender: TObject);
begin

Spalten:= 10;
Zeilen:= 10;

Spielbrettaufbauen();
end;


procedure TForm1.Spielbrettaufbauen();
var
 horizontal,vertikal: integer;
 Feld: Array[0..Spalten, 0..Zeilen] of Tshape;    //hier kommt der Fehler

begin

for horizontal := 1 to Spalten do  begin
Abstand_hor:= Abstand_hor + Breite;
    Abstand_ver:= Basis;
    for vertikal := 1 to Zeilen do
    begin
       Abstand_ver:= Abstand_ver + Hoehe;
       //das Shape wird formatiert
       Feld[horizontal, vertikal] := Tshape.create(self);
       Feld[horizontal, vertikal].Parent:=  form1;
       Feld[horizontal, vertikal].height:=  Hoehe;
       Feld[horizontal, vertikal].width:=  Breite;
       Feld[horizontal, vertikal].top:=  Position_top + Abstand_ver;
       Feld[horizontal, vertikal].left:=  Position_left + Abstand_hor;
       Feld[horizontal, vertikal].OnMouseUp:= Fillshape;
    end;
end;

[SirThornberry]

@daNiii: Kannst du deinem Beitrag bitte einen aussagekräftigeren Titel geben der ansatzweise erahnen lässt worum es in dem Thema geht? Dadurch haben andere mit dem gleichen Problem den Vorteil dieses Thema (mit eventueller Lösung) über die Suche (schneller) zu finden. :)

[himitsu]

Diese statischen Arrays werden zur Compilierungs-Zeit übersetzt und da ist der Wert für die Konstanten noch unbekannt.

Also entweder du nimmst ein dynamisches Array und setzt die Größe um Code (siehe Tryer),

oder du machst Konstanten daraus, so wie es der Compilier, für diesem Fall des statischen Arrays, verlangt

Delphi-Quellcode:

const
  Spalten = 10;
  Zeilen = 10;

procedure TForm1.FormShow(Sender: TObject);
begin
  Spielbrettaufbauen();
end;

[daNiii]

alos Konstanten geht schon mal garnicht..
den der Wert muss anpassbar sein...
wie geht das mit dem dynamischen arrays?

[Medium]

Siehe Beitrag #2 :roll:

[DeddyH]

Und vorsorglich weise ich schon einmal darauf hin, dass man gerade bei dynamischen Arrays den Index auf <= High(Array) prüfen sollte, bevor man darauf zugreift.

[Medium]

Och Mönsch! Ich hab mich schon so auf die kommenden Off-By-One Fragen und Diskussionen gefreut! Hatten wir schon verhältnismäßig lange nicht mehr :stupid: :mrgreen: