, toont aan hoe je een eumerated is het touw,,, de volgende functies laten zien hoe een opsomming, touw en vice versa voor het gebruik van getenumname en deze functie, getenumvalue. Voor elk van die soorten te veranderen, de naam en de functie van de parameters te creëren, type,,, je. De voorwaarden voor het gebruik van zal moeten worden opgenomen in de typinfo.pas.,,, (* * * * * * * * * * * * * * - het creëren van een virtuele presentatie),,,, tsuit = (hart, diamanten, clubs, schoppen);,,, suittostring (pak: tsuit):...,,,,, typeinfo ongeldig was wegens de getenumname: = ((tsuit) het is lekker (pak),,,,,,, aan het einde van de functie van stringtosuit; (pak: touw): tsuit;,,,, de resultaten: = tsuit (getenumvalue (typeinfo ongeldig was wegens (TianjinHet), pak);,,,,, een einde te maken aan de; (* * * * * * * deze functie zal een van de Delphi - * * * * * * *), de functie, positiontostring (stand: tposition):...;,,,,, getenumname (typeinfo ongeldig was wegens de resultaten: = (tposition), mantel (plaats)); en aan het einde van de functie van het,,,,, (* * * * * * * ds) vallen, boven, en wordt de volgende code toe te voegen aan de onclick gebeurtenis.Dit zal een reeks berichtenvak (* * * * * * * de omschakeling van ds) is het touw.,,, de procedures aan de hand van een evenement. Om te draaien (de afzender: TObject); het lettertype, var, de: tsuit;,,,,,,, en zijn hart: =; (suittostring (s)); S = diamanten;,, (suittostring (s));,,,, is de Club: =; (suittostring (s));,,: = schoppen;,, (suittostring (s));,,,: = stringtosuit (* * * * * * * (d) (* * * * * * * * * * * * * *).));,, worden (suittostring (s));,,, (positiontostring (plaats); aan het einde van,,,,,