Array länge verändern

[Murcielago82]

Hallo, ich will die länge eines arrays erst in einer Procedure setzen.

Delphi-Quellcode:

procedure zahlsetzen_generieren(i,j : integer;StringGrid1:TStringGrid);

VAR zeiger,k,zahl,wo:integer;                                
möglichkeit : array [0..zeiger] of integer;    //Zeiger soll erst in der procedur gesetzt werden???
geprüft: boolean;

procedure prüfen();
  begin
  geprüft:= false;
  geprüft:= check_zeile(i,zahl);
  if geprüft = false then
      begin
        geprüft:=check_spalte(j,zahl);            
        if geprüft = false then
          begin
            geprüft:=check_3x3(zahl,i,j);             
            if geprüft = false then                       
            begin
              exit;
            end;
          end;
        end;
  end;

begin
  zeiger:=0;
  for k:=0 to 9 do
    begin
    prüfen();
    if geprüft = false then
      begin
      möglichkeit[zeiger]:= k;
      inc(zeiger);                  //Hier sollte Zeiger immer erhöht werden wenn zulässig
      end;
    end;
end;

Leider bekomme ich immer ine Fehlermeldung wenn ich oben das array erstelle. Ist sowas überhaupt möglich was ich vorhabe?
Gruss

[pacman1986]

seh dich nach dynamischen arrays um die werden dann so deklariert

Delphi-Quellcode:

möglichkeiten : array of integer;

und wenn du die größe setzt:

Delphi-Quellcode:

setlength(moeglichkeiten,2);

das array begin bei 0 also -> 0,1 sind die array elemete bei diesem beispiel

[Angel4585]

Delphi-Quellcode:

procedure zahlsetzen_generieren(i,j : integer;StringGrid1:TStringGrid); 

VAR zeiger,k,zahl,wo:integer;                                
möglichkeit : array  of integer;    //Zeiger soll erst in der procedur gesetzt werden??? 
geprüft: boolean; 

procedure prüfen(); 
  begin 
  geprüft:= false; 
  geprüft:= check_zeile(i,zahl); 
  if geprüft = false then 
      begin 
        geprüft:=check_spalte(j,zahl);            
        if geprüft = false then 
          begin 
            geprüft:=check_3x3(zahl,i,j);              
            if geprüft = false then                        
            begin 
              exit; 
            end; 
          end; 
        end; 
  end; 

begin 
  zeiger:=0; 
  for k:=0 to 9 do 
    begin 
    prüfen(); 
    if geprüft = false then 
      begin 
      SetLength(möglichkeit,Succ(zeiger));
      möglichkeit[zeiger]:= k; 
      inc(zeiger);                  //Hier sollte Zeiger immer erhöht werden wenn zulässig 
      end; 
    end; 
end;

So sollte es gehn, aber ob die variabl "Möglichkeit" zulässig ist denk ich nicht ;)

[pacman1986]

:oops: ups natürlich oe net ö :D

[Avatar]

Hi Murcielago82.

Dafür musst Du eine dynamische Array-Variabl definieren und dann die Länge zuweisen. Das sieht dann so aus:

Delphi-Quellcode:

var
  xMoeglichkeit: Array of Integer;

begin
  SetLength(xMoeglichkeit, iAnzahl);
  ...

PS: Zeiger würd ich nie eine Variable nennen, es sei denn, es ist wirklich ein Pointer ;)

PPS: och nö. das geht viel zu schnell hier ...

[Murcielago82]

Klasse vielen Dank!!!

Zitat:

SetLength(möglichkeit,Succ(zeiger));

Was bedeuted Succ ??

[Avatar]

Da zitiere ich doch mal aus der allesumfassenden Hilfe die man gut über F1 erreichen kann:

Zitat:

Die Funktion gibt den Nachfolger eines Arguments zurück.

[Murcielago82]

und das bedeuted? In Der Hilfe steht n+1 also wäre es hier zeiger +1?

[Avatar]

Richtig, das heißt "einen mehr als". pred(x) steht übrigens für "einen weniger als X". Beides kann auch zusammen mit high(X) und low(X) für Enum-Typen (Aufzählungstypen) verwendet werden. Ganz praktisch, um den Überblick zu behalten und nicht lange 2+i-(i+1)+(i*i-1)+6... Würmer zu bekommen.

[Christian Seehase]

Moin Martin,

Zitat:

Zitat von Angel4585

So sollte es gehn, aber ob die variabl "Möglichkeit" zulässig ist denk ich nicht ;-)

in D2006 kannst Du Umlaute, oder Accents, oder ß... in Bezeichnernamen verwenden (in D2005 weiss ich es nicht)