lotbase.pas

《参透Delphi Kylix》通过131个事例

unit LotBase;

interface

uses
  SysUtils, Types, Classes;

{$DEFINE LOT_SPORTS}
//{$DEFINE LOT_WELFARE_36}

const
{$IF Defined(LOT_SPORTS)}
  LOT_FILE_NAME = 'Data\nlot.dat';
{$ELSEIF Defined(LOT_WELFARE)}
  LOT_FILE_NAME = 'Data\wlot.dat';
{$ELSEIF Defined(LOT_WELFARE_36)}
  LOT_FILE_NAME = 'Data\wlot36.dat';
{$IFEND}

  LOT_NUM_OF_SERIES = 7;
  LOT_MIN_ELEMENT = 1;
  LOT_BLANK_LINES = 10;
{$IF Defined(LOT_SPORTS)}
  LOT_MAX_ELEMENT = 36;
{$ELSEIF Defined(LOT_WELFARE)}
  LOT_MAX_ELEMENT = 32;
{$ELSEIF Defined(LOT_WELFARE_36)}
  LOT_MAX_ELEMENT = 36;
{$IFEND}

  LOT_STAKE_FMT = '%2.2d , %2.2d , %2.2d , %2.2d , %2.2d , %2.2d , %2.2d ;   %2.2d';
  LOT_STAKE_NONE = -1;

type
  TEvaluationTag = (etContTwo, etContThree, etContFour);

  TLotElement = LOT_MIN_ELEMENT - 1..LOT_MAX_ELEMENT;
  // Stakes in gambling, including the special element(Number)
  TLotElementArr = packed array [1..LOT_NUM_OF_SERIES + 1] of TLotElement;
  TLotElementFreqArr = array [1..LOT_MAX_ELEMENT] of Integer;

  TLotElementSet = set of TLotElement;
  TAnalyzedStakeElements = record
    ReservedSet, DiscardedSet: TLotElementSet;
  end;

const
  LOT_LEN_COUNT = SizeOf(Int64);
  LOT_LEN_ID = SizeOf(Integer);
  LOT_LEN_DATE = SizeOf(TDateTime);
  LOT_LEN_ELEMENT = SizeOf(TLotElement);
  LOT_LEN_STAKE = LOT_LEN_ID + LOT_LEN_DATE + LOT_LEN_ELEMENT * (LOT_NUM_OF_SERIES + 1);

type
  TLotStake = packed record
    ID: string[6];
    Date: TDateTime;
    Elements: TLotElementArr;
  end;

implementation

end.