Moin Moin,
ich will eine Procedur aufrufen aber irgendwie habe ich immer einen Fehler weiss aber nicht warum. Komisch das ich andere Proceduren ohne Probleme genau so aufrufen kann. Weiss einer Rat??
Delphi-Quellcode:
begin
Zähler:=0;
starti:=0;
startj:=0;
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
EigenschaftenGrid[i,j].wert:='0';
StringGrid1.Cells[j,i] := '';
EigenschaftenGrid[i,j].vorgegeben:= 0;
end;
end;
generieren();
end;
hier die procedur:
Delphi-Quellcode:
procedure generieren();
VAR EZahl: integer;
geprüft:boolean;
begin
Randomize;
verlauf_füllen();
Repeat
wähle_zelle(zähler); // starti u start j sind nun gefüllt!
EZahl:= random(9)+1; // EIne Zahl zwischen 1 und 9!
geprüft:= false;
geprüft:= check_zeile(starti,EZahl);
if geprüft= true then
generieren(); // evtl exit!
geprüft:= check_spalte(startj,EZahl);
if geprüft= true then
generieren();
geprüft:= check_3x3(EZahl,starti,startj);
if geprüft= true then
generieren();
if geprüft= false then
begin
EigenschaftenGrid[starti,startj].wert:= inttostr(EZahl);
inc(zähler);
end;
until Zähler = 82;
end;