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