Developer Christmas Countdown - December 17 - T minus 8 days

unit ChristmasUnit;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm5 = class(TForm)

    TraditonalTwelveDaysButton: TButton;

    DeveloperTwelveDaysButton: TButton;

    Memo1: TMemo;

    procedure TraditonalTwelveDaysButtonClick(Sender: TObject);

    procedure DeveloperTwelveDaysButtonClick(Sender: TObject);

  private

    procedure DisplayTheDays(TwelveDaysStrings: array of string);

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form5: TForm5;



implementation



{$R *.dfm}



const



TraditionalTwelveDaysStrings : array[0..11] of string =

  ('A Partridge in a Pear Tree.',

  'Two Turtle Doves,',

  'Three French Hens,',

  'Four Calling Birds,',

  'Five Golden Rings!',

  'Six Geese A-Laying,',

  'Seven Swans A-Swimming,',

  'Eight Maids A-Milking,',

  'Nine Ladies Dancing,',

  'Ten Lords A-Leaping,',

  'Eleven Pipers Piping,',

  'Twelve Drummers Drumming,');



DeveloperTwelveDaysStrings : array[0..11] of string =

  ('A gigabyte pipe at home.',

  'Two awesome tablets,',

  'Three dual-core phones,',

  'Four petaflops,',

  'Five terabytes!',

  'Six funny thumb drives,',

  'Seven caffeine capsules,',

  'Eight gigs of memory,',

  'Nine flawless stored procs',

  'Ten tie dye t-shirts,',

  'Eleven promo booth swag,',

  'Twelve finished projects,');



function DaySuffix(DayValue : integer) : string;

begin

  case DayValue of

    0 : Result := 'st';

    1 : Result := 'nd';

    2 : Result := 'rd'

  else

    Result := 'th'

  end;

end;



procedure TForm5.DisplayTheDays(TwelveDaysStrings: array of string);

var

  DaysIndex: Integer;

  DaysToList: Integer;

begin

  Memo1.Lines.Clear;

  for DaysIndex := 0 to 11 do

  begin

    Memo1.Lines.Add('On the ' + IntToStr(DaysIndex+1) + DaySuffix(DaysIndex) + ' day of Christmas,');

    Memo1.Lines.Add('My true love sent to me,');

    for DaysToList := DaysIndex downto 0 do

    begin

      if (DaysToList = 0) and (DaysIndex <> 0) then

        Memo1.Lines.Add('and');

      Memo1.Lines.Add(TwelveDaysStrings[DaysToList]);

    end;

    Memo1.Lines.Add('');

  end;

end;



procedure TForm5.TraditonalTwelveDaysButtonClick(Sender: TObject);

begin

  // The Traditional Twelve Days of Christmas

  DisplayTheDays(TraditionalTwelveDaysStrings)

end;



procedure TForm5.DeveloperTwelveDaysButtonClick(Sender: TObject);

begin

  // The Developer Twelve Days of Christmas

  DisplayTheDays(DeveloperTwelveDaysStrings)

end;



end.