Sudoku: move DbgS() functions to the unit where the types concerned are defined.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7244 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/sudoku/scratchpad.pas

@@ -38,28 +38,6 @@ implementation
 
 {$R *.lfm}
 
-function DbgS( ASet: TDigitSet): String; overload;
-var
-  D: TDigits;
-begin
-  Result := '[';
-  for D in ASet do
-  begin
-    Result := Result + IntToStr(D) + ',';
-  end;
-  if (Result[Length(Result)] = ',') then System.Delete(Result, Length(Result), 1);
-  Result := Result + ']';
-end;
-
-function DbgS(ASquare: TSquare): String; overload;
-const
-  BoolStr: Array[Boolean] of String = ('False','True');
-begin
-  Result := '[Value: ' + IntToStr(ASquare.Value) + ', ';
-  Result := Result + 'Locked: ' + BoolStr[ASquare.Locked] + ', ';
-  Result := Result + 'DigitsPossible: ' + DbgS(ASquare.DigitsPossible) + ']';
-end;
-
 { TScratchForm }
 
 procedure TScratchForm.FormActivate(Sender: TObject);

applications/sudoku/sudoku.lpi

@@ -81,6 +81,7 @@
         <Filename Value="scratchpad.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="ScratchForm"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="ScratchPad"/>
       </Unit3>

applications/sudoku/sudokutype.pas

@@ -56,12 +56,37 @@ type
     //function Solved: Boolean;
   end;
 
+function DbgS(ASet: TDigitSet): String; overload;
+function DbgS(ASquare: TSquare): String; overload;
+
 implementation
 
 const
   cmin : Array[1..9] of Integer = (1, 1, 1, 4, 4, 4, 7, 7, 7);
   cmax : Array[1..9] of Integer = (3, 3, 3, 6, 6, 6, 9, 9, 9);
 
+function DbgS(ASet: TDigitSet): String; overload;
+var
+  D: TDigits;
+begin
+  Result := '[';
+  for D in ASet do
+  begin
+    Result := Result + IntToStr(D) + ',';
+  end;
+  if (Result[Length(Result)] = ',') then System.Delete(Result, Length(Result), 1);
+  Result := Result + ']';
+end;
+
+function DbgS(ASquare: TSquare): String; overload;
+const
+  BoolStr: Array[Boolean] of String = ('False','True');
+begin
+  Result := '[Value: ' + IntToStr(ASquare.Value) + ', ';
+  Result := Result + 'Locked: ' + BoolStr[ASquare.Locked] + ', ';
+  Result := Result + 'DigitsPossible: ' + DbgS(ASquare.DigitsPossible) + ']';
+end;
+
 {
 Counts the number of TDigitSet in ASet.
 aValue only has meaning if Result = 1 (which means this cell is solved)