I.T. Discussion Community!
-Collapse +Expand
PrestwoodBoards
Search Group:

Advanced
-Collapse +Expand PrestwoodBoards Store

Prestwood eMagazine

December Edition
Subscribe now! It's Free!
Enter your email:

   ► MB LobbyPrestwoodBoards BoardJust Conversation Topic   Print This     

How to cook a turkey?

How to cook a turkey? in Just Conversation topic (part of our PrestwoodBoards group).

Quick Search: How cook   How cook turkey  
rt
Castel, -- UK
...and a total change of topic... can anyone out there suggest something politely American to do with a turkey as my wife has some fantasy of cooking a Mid-November-UK-Style-ThanksGiving-Nosh.
Seriously, any recipies.....
rt Big Grin!izza:

Thats enough of that. Ed.

 Posted 17 years ago (Thread Starter)
Comment Quote
About rt -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.
About rt

I do like my jazz and blues!


Post ID #8239, 9 replies
Thread Started 11/10/2002 7:52:00 AM
View Counter=2464
Last Reply Posted 11/15/2002 4:32:00 PM)
Location=Castel, -- UK 
Joined=19 years ago   MB Posts=687   KB Comments=1  
rt
Castel, -- UK
Sounds good enough to eat! Big Grin!izza:

As much as I enjoy cooking I'm not doing this one, so I shall it on to Herself and see if she requireth further destructions.. Geek Alert!
rt

Thats enough of that. Ed.

 Posted 17 years ago (Thread Starter)
Comment Quote
About rt -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.
About rt

I do like my jazz and blues!


Post ID #8282 (Level 1.1)  Reply to 8239
Thread Started 11/13/2002 1:36:00 AM
View Counter=2
Location=Castel, -- UK 
Joined=19 years ago   MB Posts=687   KB Comments=1  
rt
Castel, -- UK
That's brilliant Big Grin! award yourself a gold star.

I shall pass your program onto the chefette, although I wonder if it will compile in our Basic oven Think!
rt

Thats enough of that. Ed.

 Posted 17 years ago (Thread Starter)
Comment Quote
About rt -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.
About rt

I do like my jazz and blues!


Post ID #8299 (Level 1.2)  Reply to 8239
Reply Posted 11/14/2002 1:35:00 AM
Location=Castel, -- UK 
Joined=19 years ago   MB Posts=687   KB Comments=1  
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Cooking with Delphi - Part 1.



Since I'm a talented Delphi programmer, and a talented cook, I'm combining the two to show you how to cook a turkey dinner in Delphi:



Here are the global variables:

var
   Kitchen : TKitchen;
   StoveOven : TStoveOven;
   TurkeyStuffing : TStuffing;
   Turkey : TTurkey;
   SideDish1 : TSweetPotatoes;
   SideDish2 : TCranberrySauce;
   SideDish3 : TButterRolls;
   SideDish4 : TGreenVegatable;
   Dressing1 : TThickBrownGravy;
   Dressing2 : TMeltedButter;
   Dessert1 : TPumpkinPie;
   BottleOfMerlotInCupboard : TGoodWine;
   BottleOfWhiteZinfandel : TCaliforniaWine;
   Helper : THusband;
   Helper_Motivator : TPintOfGuinness;
   Cook : TWifeWhoWillKindlySlaveAwayForFourHoursOnThisMeal;

Big Grin!
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8289 (Level 1.3)  Reply to 8239
Reply Posted 11/13/2002 12:44:00 PM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Cooking with Delphi - Part 2.



The first thing you have to do is to prepare the stuffing for the turkey:

procedure PrepareTheStuffing;
var
   MixingBowl : TFourQuartBowl;
   BakingDish : T13inchX9inchCasserole;
begin
   TurkeyStuffing.Ingredients.[1] := '1 1/2 loaves day-old French bread';
   if (not TimeToCutUpBread) then
     TurkeyStuffing.Ingredients.[1] := '1 box stuffing mix';
   TurkeyStuffing.Ingredients.[2] := '1/4 Cup Butter';
   TurkeyStuffing.Ingredients.[3] := '2 onions';
   TurkeyStuffing.Ingredients.[4] := '2 apples';
   TurkeyStuffing.Ingredients.[5] := '1 1/2 cup celery';
   TurkeyStuffing.Ingredients.[6] := '1 can chicken broth soup';
   if (not StoreHasChickenBroth) then
     TurkeyStuffing.Ingredients.[6] := '1 cup prepared soup from chicken boullion';
   TurkeyStuffing.Ingredients.[7] := '1 tablespoon spice - sage';
   TurkeyStuffing.Ingredients.[8] := '1 tablespoon spice - rosemary';
   // Preparation instructions
   Cook.Chop('stale bread', '1/2 inch cubes');
   Cook.Chop('onions');
   Cook.Chop('celery');
   Cook.Chop('apples');
   StoveOven.Pan.Saute('butter',hMediumHeat);
   StoveOven.Pan.WhileHeatingAction := cStirFrequently;
   StoveOven.Pan.Add(SautePan,['onions']);
   StoveOven.Pan.CookMinutes(5);
   StoveOven.Pan.Add(SautePan,['celery','apples']);
   StoveOven.Pan.CookMinutes(5);
   MixingBowl.Add(['bread cubes',Pan.Contents]) + StirWell;
   MixingBowl.Add(['chicken broth']) + StirWell;
   MixingBowl.Add(['sage','rosemary']) + StirWell;
   // Cooking instructions
   BakingDish.Add(MixingBowl.Contents);
   BakingDish.OnAfterCookingEvent := SetAsideToCool(tTenMinutes);
   StoveOven.Bake(BakingDish,tmSixtyMinutes);
end;

Big Grin!
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8290 (Level 1.4)  Reply to 8239
Reply Posted 11/13/2002 12:45:00 PM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Cooking with Delphi - Part 3



Next, you need to prepare the turkey:

procedure PrepareTheTurkey;
var
begin
   Turkey.RemoveGibletsAndNeck;
   Turkey.RinseThoroughly;
   Turkey.Inside.RinseThoroughly;
   Turkey.Skin.Brush('butter' or 'cooking oil');
   Turkey.Skin.Sprinkle(Spice('sage') + Spice('rosemary'),sLightly);
   if (TurkeyStuffing.isCooled) then
     Turkey.Cavity.Stuff(TurkeyStuffing);
   if (HasMeatThermometer(Cook)) then
     Turkey.Insert(MeatThermometer,pInStuffing);
   Cook.WashHands(Thoroughly!);
end;

Big Grin!
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8293 (Level 1.5)  Reply to 8239
Reply Posted 11/13/2002 12:47:00 PM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Cooking with Delphi - Part 4



There are various charts to help you determine how long to cook the turkey, but here's a general guideline:

function ApproximateMinutesCookingTime : TMinutes;
var
begin
   if (Turkey.WeightInPounds < 4) then
     MinutesCookingTime := Turkey.WeightInPounds) * 2
   else
   if (Turkey.WeightInPounds < 8) then
     MinutesCookingTime := Turkey.WeightInPounds) * 3
   else
   if (Turkey.WeightInPounds < 12) then
     MinutesCookingTime := Turkey.WeightInPounds) * 4
   else
   if (Turkey.WeightInPounds < 16) then
     MinutesCookingTime := Turkey.WeightInPounds) * 5
   else
   if (Turkey.WeightInPounds < 20) then
     MinutesCookingTime := Turkey.WeightInPounds) * 6
   else
   if (Turkey.WeightInPounds < 24) then
     MinutesCookingTime := Turkey.WeightInPounds) * 7
   else
   if (Turkey.WeightInPounds < 28) then
     MinutesCookingTime := Turkey.WeightInPounds) * 8
   else
   if (Turkey.WeightInPounds < 32) then
     MinutesCookingTime := Turkey.WeightInPounds) * 9
   else
     ShowMessage('You need a much bigger oven!');
end;

Roll Eyes
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8294 (Level 1.6)  Reply to 8239
Reply Posted 11/13/2002 12:53:00 PM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Cooking with Delphi - Part 5



Finally, bringing it all together...

procedure TKitchen.MakeTurkeyDinner(numberOfGuests : integer);
var
   BakingPan : TLargeSturdyBakingPan;
   CookingTime : TCookingTime;
begin
   Helper.Name := 'RT';
   OnInitializeEvent := SendToThePub(Helper, Helper_Motivator);

   OnBeforePrepareEvent := StoveOven.SetOvenTemperature(350_Degrees);

   OnAfterPrepareEvent := PrepareSideDishes;

   Turkey.WeightInPounds := 4 + (numberOfGuests * 2);
   Turkey.OnAfterCookedEvent := SetTable;

   Helper.OnAfterDinnerEvent := CleanDishes(Helper_Motivator);

   Cook.OnAfterDinnerEvent := TakeLongNap;

   BakingPan.Depth.Min := miTwoInches;
   BakingPan.Width.Min := Turkey.Circumference + miOneInch;
   PrepareTheStuffing;
   PrepareTheTurkey;

   CookingTime.Duration := tTwoHours + ApproximateMinutesCookingTime;

   BakingPan.Place(Turkey,pCenter);
   BakingPan.Cover('Aluminum Foil');
   StoveOven.Bake(BakingPan,CookingTime.Duration);
   Cook.PrepareSideDishes;
   if Available(BottleOfMerlotInCupboard) then
     Cook.Fetch(BottleOfMerlotInCupboard);
   while (Turkey.TimeCooked < CookingTime.Duration)
     or (MeatThermometer < 165_Degrees_Farenheit) do
   begin
     if (TimeSinceLastChecked >= tOneHour) then
     begin
       StoveOven.Open;
       BakingPan.UnCover;
       Turkey.Skin.Baste('Juices From Pan');
       BakingPan.ReCover;
       StoveOven.Close;
     end;
     if (not BottleOfMerlotInCupboard.Empty) then
       BottleOfMerlotInCupboard.Drink('glass');
   end;
   Cook.ServeFood(VarArrayOf[
       Turkey,
       TurkeyStuffing.Remainder,
       SideDish1,
       SideDish2,
       SideDish3,
       SideDish4,
       Dressing1,
       Dressing2,
       BottleOfWhiteZinfandel]);
   Helper.Carve(Turkey);
   Cook.SitDownAndEat;
   Helper.SitDownAndEat;
   Cook.ServeFood([Dessert1]);
   Cook.TakeLongNap;
   Helper.CleanUpKitchen;
end;

[Wow!]
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8297 (Level 1.7)  Reply to 8239
Reply Posted 11/13/2002 12:56:00 PM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Well, RT did ask for an American recipe...



My reference to degrees in Farenheit should have been the give-a-way... Now that
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8305 (Level 1.8)  Reply to 8239
Reply Posted 11/14/2002 7:46:00 AM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  
Most Recent Post
Scott Wehrly
Prestwood IT
 (Inactive)
Las Vegas, NV USA
Okay, perhaps I forgot the initialization section of the unit...



By including the seldom-used SysKitchenUtils unit, and assigning the following properties:

ShortCookingWeightFormat := wUSPounds;
ShortCookingTemparatureFormat := ctUSFarenheit;

Big Grin!
 Posted 17 years ago
Comment Quote
About Scott Wehrly -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8316 (Level 1.9)  Reply to 8239
Reply Posted 11/15/2002 4:32:00 PM
Location=Las Vegas, NV USA 
Joined=17 years ago   MB Posts=442   KB Posts=19  

Revive Thread!

Add a comment to revive this old thread and make this archived thread more useful.

Write a Comment...
Full Editor
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1162A1
Enter key:
Icon: A Post    Thread    Idea    Important!    Cool    Sad    No    Yes    Includes a Link...   
Thread #8239 Counter
2464
Since 4/2/2008

Follow PrestwoodBoards on: 


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech