@fkerber: So isses, hätte das Codebeispiel wohl vollständig abgeben sollen. Nun gut, hier vollständig und etwas gepimpt:
Delphi-Quellcode:
Type
TKompaktFormularUeberschrift = (kfuUndefiniert, kfuTyp1, kfuTyp2);
TMyForm = Class (TForm)
private
fKompaktTyp : TKompaktFormularUeberschrift;
Procedure SetKompaktTyp (Value : TKompaktFormularUeberschrift);
public
Property KompaktTyp : TKompaktFormularUeberschrift Read fKompaktTyp Write SetKompaktTyp;
End;
Const
KompaktTypFormUeberschrift : Array [TKompaktFormularUeberschrift] Of String = (
'undefiniert',
'Kompaakte Darstellung-Version 1',
'Kompaakte Darstellung-Version 2'
);
...
Procedure TMyForm.SetKompaktTyp (Value : TKompaktFormularUeberschrift);
Begin
If Value <> fKompaktTyp then begin
fKompaktTyp := Value;
Caption := KompaktTypFormUeberschrift[fKompaktTyp]
End
End;
Der Präfix 'f' des Feldnamens ist entsprechend der 'Standard'-Delphi Konvention für Nomenklaturen, analog zum Präfix 'T' für Typen, 'I' für Interfaces und 'E' für Exceptions... Gibt's noch mehr? Ach ja, vielleicht 'A' für Parameter (in welcher Sprache fängt 'Parameter' mit 'A' an?)