Unit Cardshoe

============================================================================== PROGRAM: CARDSHOE.PAS DESCRIPTION: Delphi component to manage 1 to 8 decks of playing cards AUTHOR: Ralph W. Iden (riden@ais.net) Released into the public domain, enjoy. ==============================================================================

Classes

TCardShoe -

Functions

Register - The following values may conflict with your applications.

Types

CardElement

Constants

Variables


Functions


procedure Register;

The following values may conflict with your applications. I defined them here so I could link in CARDSHOE.RES into the unit. If there is a conflict, change the following values and use Resource Workshop to renumber the string identifiers in CARDSHOE.RES to match your new values} {String resource identifiers

Types


CardElement = record
CardID : byte;
RndValue : integer;
end;

Constants


Variables