Mengen mit kompletten Strings?

[Sharky]

Zitat von Tpercon:

Code:

If Edit1.Text in ['bla1','bla2','bla3']
 then Showmessage('ist drin');

Gibt es ansonsten eine andere Möglichkeit, dies umzusetzen?

Das geht so nicht. IN geht nur mit ordinaltypen.

Aber so gehts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  sl_bla   : TStringList;
 begin
  sl_bla := TStringList.Create;
  try
  sl_bla.Add ('bla1');
  sl_bla.Add ('bla2');
  sl_bla.Add ('bla3');
  If (sl_bla.IndexOf (Edit1.Text) > -1)
   then Showmessage('ist drin');
  finally
    sl_bla.Free;
  end;
 end;