If Abfrage mit or und and kombinieren

[nahpets]

Unter Delphi 7 gibt es u. a. AnsiMatchText, damit könnte es in etwa so funktionieren:

Delphi-Quellcode:

uses StrUtils;
...
procedure TForm1.irgendwas;
begin
  if AnsiMatchText(JvComboMaschine2.Text,['TT','TT / Cutter','TT600','Laser','Primera'])
  and (Trim(JvEditRohwareNr.Text) = '') then begin
    Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
    JvEditRohwareNr.SetFocus;
  else begin
    PanelSpeichern.Visible := True;
    JvHTButtonspeichernOK.SetFocus;
  end;
end;