abfrage mit meheren möglichkeiten

[Sharky]

Hai JSB,

zwei möglichkeiten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wert : Integer;
begin
  wert := 2;
  if wert IN [1,3] then
  begin
    ShowMessage ('Jup');
  end
  else
  begin
    ShowMessage ('Nöp');
  end;
end;

oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wert : Integer;
begin
  wert := 1;
  if (wert = 1) or (wert = 2) then
  begin
    ShowMessage ('Jup');
  end
  else
  begin
    ShowMessage ('Nöp');
  end;
end;

[Edit] Da war Andreas doch tatsächlich schneller [/edit]