Variable soll nur bestimmte Werte annehmen dürfen - wie?

[Khabarakh]

Zitat von Kedariodakon:

hier mal nen Beispiel mit nem String Array, falls es noch wer gebrauchen kann...

Delphi-Quellcode:

Procedure TMeinDef.SetValue( Const Value: String );
Var      i:         Integer;
Const Valids:   Array[ 0..2 ] Of String = ( 'ha', 'hb', 'hc' );
Begin
   For   i   := Low( Valids ) To   High( Valids ) Do Begin
      If SameText( Valids[ i ], Value )   Then Begin
         FValue   := Value;
         Exit;
      End;
   End;
   Raise Exception.Create( '"' + Value + '"is a wrong kind of Value' );
End;

Das kommt mir bekannt vor : http://www.delphipraxis.net/internal...=395597#395597