, viser, hvor at omdanne en eumerated former for en snor, følgende funktioner viser, hvordan til at konvertere en opregnet, type til en streng og omvendt ved hjælp af getenumname og getenumvalue. disse funktioner har brug for på ny at blive oprettet for hver af nævnte type, ændring funktion navn og parameter former.,,, du er nødt til at tage typinfo.pas i bruger klausul.,,, (* for demo formål at skabe en falsk type *), type, tsuit = (hjerter, diamanter, klubber, spader);,,, funktion suittostring (jakkesæt: tsuit): string.,, begynder, resultat: = getenumname (typeinfo (tsuit), afgørelse (-));,,,,,, funktion stringtosuit (jakkesæt: string): tsuit;,, begynder, resultat: = tsuit (getenumvalue (typeinfo (tsu.det), jakkesæt),,,,,,,,, (*) denne funktion vil ændre en eksisterende delphi - *), funktion positiontostring (forslag: tposition): string;,,, begynder, resultat: = getenumname (typeinfo (tposition), orry (stilling),,,,,,, at anvende funktion (*) *) ovenfor, smid en tbutton i en form og tilføje følgende kode til sin onclick begivenhed kontaktperson.dette vil vise en række messagebox (*) *) med omregnet typer som strenge.,,, procedure tform1. button1click (afsender: tobject);,, var,, s: tsuit;,, begynder, s = hjerter,,, showmessage (suittostring (s),, s = diamanter,,, showmessage (suittostring (s), s = klubber,,, showmessage (suittostring (s), s = spader,,, showmessage (suittostring (s), s = stringtosuit ((*) *). (*) *), showmessage (suittostring (s),,, showmessage (positiontostring (stilling),,,,,