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;