home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / delph / dec95 / faulf105.gif < prev    next >
Graphics Interchange Format  |  1996-02-07  |  95KB  |  619x411  |  8-bit (181 colors)
Labels: text | screenshot | number | font | parallel
OCR: Function Description function IsCardRed[Value: edCardDeck) : Boolean; Accepts a card value. Returns True if card is red, otherwise False. function IsCardBlack(Value: cdCardDeck) : Boolean; Accepts a card value. Returns True if card is black, otherwise False. function IsFaceCard(Value: cdCardDeck) : Boolean; Accepts a card value. Returns True if card is a face card, othewise False. function AreCardsSameColor(Value1, Accepts two card values. Returns True if cards are the same color, Value2; cdCardDeck) : otherwise False. Boolean; function AreCardsSameSuit(Value1, Accepts two card values. Returns True if cards are the same suit, Value2: cdCardDeck) : otherwise False. Boolean; function AreCardsSameValue[Value1, Accepts two card values, Returns True if the cards have the same Value2: cdCardDeck) : face value and the same color, otherwise False. For example, if Boolean; the 2 of spades and 2 of diamonds are passed, True is returned. function CardColor(Value: cdCardDeck) : integer; Returns an integer representing the color of the card passed to it. CARDDECK.PAS defines the following constants for card colors; cdBlack = 1; cdRed = 2; function CardSuit(Value: cdCardDeck] : integer; Returns an integer representing the suit of the card passed to it, CARDDECK.PAS defines the following constants for card suits: cdSpade = 1; cdHeart = 12: cdClub 3; cdDiamond = 4; function CardValue(Value: cdCardDeck] : integer; Returns an integer representing the face value of the card passed to it. The number 1 represents an Ace, 2 represents a 2, and 13 represents a King.