Wie wärs mit folgender Variante:
Delphi-Quellcode:
Type
TQualiIDS = (quali1,quali2,quali3,quali4,quali5,quali6,quali7,quali8,quali9,quali10,quali11);
TQualis =
set of TQualiIDS;
//fürs speichern in der Datei, DB oder was auch immer;
const
TQualibez =
array [TQualiIDS]
of String (
'
Qualification 1',
'
Qualification 2',
'
Qualification 3',
'
Qualification 4',
'
Qualification 5',
'
Qualification 6',
'
Qualification 7',
'
Qualification 8',
'
Qualification 9',
'
Qualification 10',
'
Qualification 11');
Type
TPerson =
class(Tobject)
private
fquali : TQualis;
:
Damit erschlägst du gleich 3 Dinge auf einmal. Zum einen der interne Zugriff, der, mit den entsprechenden Bezeichnern bei den TQualiIDS, transparent abläuft. Für die Speicherung in einer
Datei hast die TQualis, das sehr platzsparend ist. Und schlussendlich für Ausgaben (ob Drucker oder Bildschirm is wurscht), hast du gleich deine Texte
