Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#9

AW: If Abfrage mit or und and kombinieren

  Alt 4. Mär 2016, 17:39
Hallo,

Delphi-Quellcode:
if ((JvComboMaschine2.Text = 'TT') or (JvComboMaschine2.Text = 'TT / Cutter') or (JvComboMaschine2.Text = 'TT600') or (JvComboMaschine2.Text = 'Laser') or (JvComboMaschine2.Text = 'Memjet') or (JvComboMaschine2.Text = 'Primera')) and (JvEditRohwareNr.Text = '') then
     begin
       Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
       JvEditRohwareNr.SetFocus;
     end
 else
    begin
      PanelSpeichern.Visible := True;
      JvHTButtonspeichernOK.SetFocus;
    end;
bist du dir sicher, dass der Code nicht funktioniert?

Vielleicht noch
and (trim(JvEditRohwareNr.Text) = '') then um die Eingabe von nur Leerzeichen auch als leere Eingabe anzusehen
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat