qrgridsolution.pas

Sudoku is a logic-based number placement puzzle. A deceptively simple game of logic, Sudoku is puzzl

unit QRGridSolution;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, StrUtils;

type
  TQPGridSolution = class(TQuickRep)
    QRBand2: TQRBand;
    QRLabel18: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape21: TQRShape;
    QRShape22: TQRShape;
    QRShape23: TQRShape;
    QRShape24: TQRShape;
    QRShape25: TQRShape;
    QRShape26: TQRShape;
    QRShape27: TQRShape;
    QRShape28: TQRShape;
    QRShape29: TQRShape;
    QRShape30: TQRShape;
    QRShape31: TQRShape;
    QRShape32: TQRShape;
    QRShape33: TQRShape;
    QRShape34: TQRShape;
    QRShape35: TQRShape;
    QRShape36: TQRShape;
    QRShape37: TQRShape;
    QRShape38: TQRShape;
    QRShape39: TQRShape;
    QRShape40: TQRShape;
    QRShape41: TQRShape;
    QRShape42: TQRShape;
    QRShape43: TQRShape;
    QRShape44: TQRShape;
    QRShape45: TQRShape;
    QRShape46: TQRShape;
    QRShape47: TQRShape;
    QRShape48: TQRShape;
    QRShape49: TQRShape;
    QRShape50: TQRShape;
    QRShape51: TQRShape;
    QRShape52: TQRShape;
    QRShape53: TQRShape;
    QRShape54: TQRShape;
    QRShape55: TQRShape;
    QRShape56: TQRShape;
    QRShape57: TQRShape;
    QRShape58: TQRShape;
    QRShape59: TQRShape;
    QRShape60: TQRShape;
    QRShape61: TQRShape;
    QRShape62: TQRShape;
    QRShape63: TQRShape;
    QRShape64: TQRShape;
    QRShape65: TQRShape;
    QRShape66: TQRShape;
    QRShape67: TQRShape;
    QRShape68: TQRShape;
    QRShape69: TQRShape;
    QRShape70: TQRShape;
    QRShape71: TQRShape;
    QRShape72: TQRShape;
    QRShape73: TQRShape;
    QRShape74: TQRShape;
    QRShape75: TQRShape;
    QRShape76: TQRShape;
    QRShape77: TQRShape;
    QRShape78: TQRShape;
    QRShape79: TQRShape;
    QRShape80: TQRShape;
    QRShape81: TQRShape;
    QRShape82: TQRShape;
    QRShape83: TQRShape;
    LblCell1: TQRLabel;
    LblCell2: TQRLabel;
    LblCell3: TQRLabel;
    LblCell4: TQRLabel;
    LblCell5: TQRLabel;
    LblCell6: TQRLabel;
    LblCell7: TQRLabel;
    LblCell8: TQRLabel;
    LblCell9: TQRLabel;
    LblCell10: TQRLabel;
    LblCell11: TQRLabel;
    LblCell12: TQRLabel;
    LblCell13: TQRLabel;
    LblCell14: TQRLabel;
    LblCell15: TQRLabel;
    LblCell16: TQRLabel;
    LblCell17: TQRLabel;
    LblCell18: TQRLabel;
    LblCell19: TQRLabel;
    LblCell20: TQRLabel;
    LblCell21: TQRLabel;
    LblCell22: TQRLabel;
    LblCell23: TQRLabel;
    LblCell24: TQRLabel;
    LblCell25: TQRLabel;
    LblCell26: TQRLabel;
    LblCell27: TQRLabel;
    LblCell28: TQRLabel;
    LblCell29: TQRLabel;
    LblCell30: TQRLabel;
    LblCell31: TQRLabel;
    LblCell32: TQRLabel;
    LblCell33: TQRLabel;
    LblCell34: TQRLabel;
    LblCell35: TQRLabel;
    LblCell36: TQRLabel;
    LblCell37: TQRLabel;
    LblCell38: TQRLabel;
    LblCell39: TQRLabel;
    LblCell40: TQRLabel;
    LblCell41: TQRLabel;
    LblCell42: TQRLabel;
    LblCell43: TQRLabel;
    LblCell44: TQRLabel;
    LblCell45: TQRLabel;
    LblCell46: TQRLabel;
    LblCell47: TQRLabel;
    LblCell48: TQRLabel;
    LblCell49: TQRLabel;
    LblCell50: TQRLabel;
    LblCell51: TQRLabel;
    LblCell52: TQRLabel;
    LblCell53: TQRLabel;
    LblCell54: TQRLabel;
    LblCell55: TQRLabel;
    LblCell56: TQRLabel;
    LblCell57: TQRLabel;
    LblCell58: TQRLabel;
    LblCell59: TQRLabel;
    LblCell60: TQRLabel;
    LblCell61: TQRLabel;
    LblCell62: TQRLabel;
    LblCell63: TQRLabel;
    LblCell64: TQRLabel;
    LblCell65: TQRLabel;
    LblCell66: TQRLabel;
    LblCell67: TQRLabel;
    LblCell68: TQRLabel;
    LblCell69: TQRLabel;
    LblCell70: TQRLabel;
    LblCell71: TQRLabel;
    LblCell72: TQRLabel;
    LblCell73: TQRLabel;
    LblCell74: TQRLabel;
    LblCell75: TQRLabel;
    LblCell76: TQRLabel;
    LblCell77: TQRLabel;
    LblCell78: TQRLabel;
    LblCell79: TQRLabel;
    LblCell80: TQRLabel;
    LblCell81: TQRLabel;
    QRShape84: TQRShape;
    QRShape85: TQRShape;
    QRShape86: TQRShape;
    QRShape87: TQRShape;
    procedure QRBand2BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private

  public
  end;

var
  QPGridSolution: TQPGridSolution;

implementation

uses MainFrm;


{$R *.DFM}

procedure TQPGridSolution.QRBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
VAR
   s:        String;
   i,x,LL:   Integer;
   AComponent:  TComponent;
begin
   s  := MainForm.GridToString();
   LL := Length(s);
   for i := 1 to cMaxCells do begin
      if i > LL then begin
        x := 0;
      end else begin
        x := StrToIntDef(MidStr(s,i,1),-1);
      end;
      AComponent := FindComponent('LblCell'+IntToStr(i)) ;
      if Assigned(AComponent) then begin
         TQRLabel(AComponent).Caption := FormatCurr('#',x);
      end;
   end; //for
end;

end.