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

[Totti]

Moin,
hab per Suche nichts gefunden, was evtl. auch an den falschen Suchbegriffen lag.

Also, ich hätte gerne eine Variable deklariert, die beispielsweise nur die Werte 'ha', 'hb und 'hc' annehmen darf.

Wie geht das? :)

Danke

[Kompon Ente]

Wie wär's mit Array's? *g*

[Khabarakh]

Mach aus der Variablen eine Property und überprüfe den Wert im Setter.

Die erlaubten Werte könntest du in einer Array-Konstante zusammenfassen:

Delphi-Quellcode:

procedure TFoo.SetText(const AValue: string);
const
  Valid: Array[0..2] of string = ('ha', 'hb', 'hc');
var
  i: Integer;
  IsValid: Boolean;
begin
  IsValid := false;
  for i := Low(Valid) to High(Valid) do
    if AValue = Valid[i] then
    begin
      IsValid := true;
      Break;
    end;

  if IsValid then
    FText := AValue;
end;

[Duke_2004]

Ich hab das bei mir so gemacht...

type
TFormat = (Querformat, Hochformat);

..
var
Variable:TFormat;
begin
..


Somit kann "Variable" nur die angegebenen Werte annehmen...
Korrigiert mich bitte, falls ich mich irre... ;-)

[Kompon Ente]

Geht das nicht auch mit Array's? o.O

[Totti]

Zitat:

Zitat von Duke_2004

Ich hab das bei mir so gemacht...

type
TFormat = (Querformat, Hochformat);

perfekt, klappt! Ich hatte esmit eckigen klammenr und ' ' versucht - nur wurd das nix :D


Aber wie meint ihr das mit arrays?


edit:
danke fürs edit - nu weiß ich, was ihr meintet mit arrays ;)

[Jens Schumann]

Zitat:

Zitat von Totti

Also, ich hätte gerne eine Variable deklariert, die beispielsweise nur die Werte 'ha', 'hb und 'hc' annehmen darf....

Wg der Ungenauigkeit der Frage kann ich keine Antwort geben.

Darf die Variable nur die Werte 'ha' und 'hb und 'hc' annehmen oder
darf die Variable nur die Werte 'ha' oder 'hb oder 'hc' annehmen ?

[freak4fun]

Zitat:

Zitat von Duke_2004

Ich hab das bei mir so gemacht...

type
TFormat = (Querformat, Hochformat);

..
var
Variable:TFormat;
begin
..

Dem schließe ich mich an. :)

Delphi-Quellcode:

type
  TFormat = (ha, hb, hc);

var
  MeineVariable: TFormat;
begin
  Meine Variable := ha;
  if MeineVariable = hb then
    MeineVariable := hc;
end;

Ein weiteres Stichwort lautet Typsicherheit. ;)

@Kompon Ente: Lass bitte deine unnötigen Kommentare sein. :angel2: Wenn du dir den Thread mal ganz durchliest, weißt du hoffentlich auch warum. :angel:

MfG
freak

[xineohp]

moin,

nochmal zum besseren Verständnis:

Die von Duke vorgeschlagene Methode basiert auf Mengen(-typen/-operationen) [siehe Strukturierte Typen]

Delphi-Quellcode:

type
  tWerte = ( ha, hb, hc );

Wenn die Variable nur einen der Werte annehmen darf:

Delphi-Quellcode:

var
  X: tWerte;

Wenn die Variable mehrere Werte annehmen darf:

Delphi-Quellcode:

var
  X: set of tWerte;

Mit in kann man prüfen ob ein Wert im Set enthalten ist.

[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;