hoi

ich habe ein type in dem ich nachher alle tv sender haben möchte, ich möchte auch prüfen ob ein bestimmter sender in der menge enthalten ist.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type TSndr = (vox, pro7, rtl2);
     AlleSndr = Set of TSndr;
var test: AlleSndr;
begin
  test := [vox..pro7];
  if (rtl2 in test) then
  ShowMessage('ja')
  else showmessage('nein');
end;

beim prüfen ob pro7 oder vox drinne ist wird "ja" ausgegeben, bei "rtl2" nein, wieso das?

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif.

Natürlich ist rtl2 nicht in Test enthalten.

Denn du füllst Test mit den Werten von vox bis pro7test := [vox..pro7]; Und in diesem Bereich liegen ja nur vox und pro7, aber eben nicht rtl2.

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Type TSndr = (ard, zdf, vox, pro7, rtl2);
    AlleSndr = Set of TSndr;

  Var Test: AlleSndr;

  Begin
    Test := [zdf..pro7];
    If (rtl2 in Test) Then ShowMessage('ja')
    Else ShowMessage('nein');
  End;

zdf, vox & pro7 sind in Test enthalten / ard & rtl2 ist nicht in Test enthalten.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

ah, danke

noch eine frage, was ist der unterschied bei:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Type TSndr = (ard, zdf, vox, pro7, rtl2);
    AlleSndr = Set of TSndr;

  Var Test: AlleSndr;

  Begin
    Test := [zdf..pro7];
    If (rtl2 in Test) Then ShowMessage('ja')
    Else ShowMessage('nein');
  End;

und:

markieren

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Type TSndr = (ard, zdf, vox, pro7, rtl2);
  Var AlleSndr: Set of TSndr;
  Begin
    Test := [zdf..pro7];
    If (rtl2 in Test) Then ShowMessage('ja')
    Else ShowMessage('nein');
  End;

es funktioniert beides

Im 2. Fall ist "Test" undfiniert. Das ist der eine Unterschied. Wahrscheinlich haste ein paar Zeilen "unterschlagen". Aber, was wichtig ist: Typen dienen u.a. der Vereinheitlichung. Es ist besser einen Typ einmal zu deklarieren, als dauernd wieder neu. Schreibe also besser zentral einen Typ und weise diesen den Variablen zu:

markieren

Delphi-Quellcode:

type IntZahlen = [0..9];
..
var i,
    j : IntZahlen;

also es so zu machen:

markieren

Delphi-Quellcode:

var i : [0..9];
..
var j : [0..9];

Der Compiler behandelt beide Fälle zwar nicht gleich, aber das ist für Dich uninteressant.

Es gibt "keinen" Unterschied.

Bei der 1. Variante wird erst ein Typ (AlleSndr) deklariet und dann damit die Variable (Test) deklariert.

Bei der 2. Variante wird die Typendeklaration direkt der Variable zugewiesen.

Mit der globalen Typendeklaration (Variante 1) bei mehrmaliger Verwendung des selben Typs has Hansa schon recht.

Wenn aber ein Typ nur einmal verwendet wird, halte ich die 2. Variant besser und übersichtlicher.

Zitat von Hansa:

Im 2. Fall ist "Test" undfiniert.

(Test ist definiert)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

Dann sage mir mal, wo bei dem zweitenvar test : blabla; im Source steht

http://www.mysmilie.de/smilies/schilder/3/img/010.gif (hab ich wohl ein Wort falsch gelesen)

Bei mir kam das so an:

markieren

Code:

[b]Var[/b] [color=red]Test[/color]: [b]Set of[/b] TSndr;

Das ist dann richtig:

markieren

Delphi-Quellcode:

Type TSndr = (ard, zdf, vox, pro7, rtl2);
  AlleSndr = Set of TSndr;

Var Test: AlleSndr;
  {weitererTest: AlleSndr;}

markieren

Delphi-Quellcode:

Type AlleSndr = Set of (ard, zdf, vox, pro7, rtl2);

Var Test: AlleSndr;
  {weitererTest: AlleSndr;}

markieren

Delphi-Quellcode:

Type TSndr = (ard, zdf, vox, pro7, rtl2);

Var Test: Set of TSndr;

Var Test: Set of (ard, zdf, vox, pro7, rtl2);
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

danke für die antworten

zu der sache das "Test := [zdf..pro7]; " nicht deklariert wurde.... ich habe bei dem beispiel ledeglich vergessen "test" in "AlleSndr" umzubenennen