Demonstrerer hvordan å konvertere en Eumerated Typer til en string.The følgende funksjoner demonstrere hvordan å konvertere en enumeratedtype til en streng og vice versa ved hjelp GetEnumName og GetEnumValue.These funksjoner må lages på nytt for hver nummerert typen bychanging funksjonsnavn og parameter den types.You må inkludere TypInfo.pas i bruk klausulen (* For demoformål skaper en dummy type *) type TSuit = (hjerter, ruter, kløver, spar), funksjon SuitToString (Suit.: TSuit): string; begynne Resultat: = GetEnumName (TypeInfo (TSuit), Ord (Suit)); ende; funksjon StringToSuit (Suit: string): TSuit; begynne Resultat: = TSuit (GetEnumValue (TypeInfo (TSuit), Suit)); ende; (* Denne funksjonen vil konvertere et eksisterende Delphi type *) -funksjonen PositionToString (Posisjon: TPosition): string; begynne Resultat: = GetEnumName (TypeInfo (TPosition), Ord (Posisjon)); ende, for å kunne bruke funksjonen (* DS *) s ovenfor slippe en TButton på en form andadd følgende kode til sin onclick hendelseshåndterer. Dette willshow en rekke messagebox (* DS *) s med konverterte typer som strings.procedure TForm1.Button1Click (Sender: TObject); Var s: TSuit; begynne s: = Hearts; ShowMessage (SuitToString (e)); s: = Diamonds; ShowMessage (SuitToString (e)); s: = klubber; ShowMessage (SuitToString (e)); s: = Spades; ShowMessage (SuitToString (e)); s: = StringtoSuit ((* DS *) Hjerter (* DS *)); ShowMessage (SuitToString (e)); ShowMessage (PositionToString (Posisjon)); end; Anmeldelser