pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Sudoku: change visula representation of "possible digits" for the sake if better human pattern recognition (as suggested by wp).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7249 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2020-01-08 11:33:04 +00:00
parent 95995ecfea
commit 21c87d8266
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/sudoku/scratchpad.pas
View File

@ -49,10 +49,10 @@ function DigitSetToStr(ASet: TDigitSet): String;
if (D in ASet) then
Result := Char(Ord('0') + D)
else
Result := 'x';//#32;
Result := #32;//'x'
end;
begin
Result := Format('%s-%s-%s'+LineEnding+'%s-%s-%s'+LineEnding+'%s-%s-%s',[Get(1),Get(2),Get(3),Get(4),Get(5),Get(6),Get(7),Get(8),Get(9)]);
Result := Format('%s %s %s'+LineEnding+'%s %s %s'+LineEnding+'%s %s %s',[Get(1),Get(2),Get(3),Get(4),Get(5),Get(6),Get(7),Get(8),Get(9)]);
end;
function StrToDigitSet(const S: String): TDigitSet;

1
applications/sudoku/sudoku.lpi
View File

@ -85,6 +85,7 @@
<Filename Value="digitseteditor.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="DigitSetEditorForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="DigitSetEditor"/>
</Unit4>