Zahlen im Edit "filtern"

[Helmi]

Hallo,

so, jetzt hab ich kurz einen kleinen Test gemacht und so gehts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;

begin
  s := Edit1.Text;
  i := StrToIntDef(s, 0); //Text in Integer wandeln

  If (i in [1, 3, 11, 13, 14, 22 , 27]) then //prüfen ob die Zahl drin ist
    ShowMessage(Format('%d ist drin!', [i])); 
end;