diff options
Diffstat (limited to 'raetselunit.inc')
-rw-r--r-- | raetselunit.inc | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/raetselunit.inc b/raetselunit.inc index 025d68a..6f9dbcf 100644 --- a/raetselunit.inc +++ b/raetselunit.inc @@ -9,6 +9,7 @@ type {$ENDIF} private procedure relativeInhaltsAenderung(diff: longint); override; + function naechsterWert(pos: longint): boolean; override; function absoluteInhaltsAenderung(key: word): boolean; override; function passtZumZeichnen(spalte,zeile: integer): boolean; override; function passt(spalte,zeile: integer): boolean; override; @@ -682,6 +683,25 @@ begin end; {$ENDIF} +{$IFDEF naechsterWert} +// function tBuchstabenRaetsel.naechsterWert(pos: longint): boolean; +begin + result:=false; + if (pos<0) or (pos>=dim*dim) then + exit; + inhalt[pos]:=inhalt[pos]+1; + {$IFDEF hochhaus} + if inhalt[pos]=0 then + inhalt[pos]:=1; + {$ENDIF} + if inhalt[pos]>groeszen[0] then begin + inhalt[pos]:=groeszen[0]; + exit; + end; + result:=true; +end; +{$ENDIF} + {$IFDEF absoluteInhaltsAenderung} // function tHochhausRaetsel.absoluteInhaltsAenderung(key: word): boolean; begin |