Hallo, habe folgende if-Anfrage;
Delphi-Quellcode:
if (JvComboMaschine2.Text = 'TT') and (JvEditRohwareNr.Text = '') then
begin
Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
JvEditRohwareNr.SetFocus;
end
else if (JvComboMaschine2.Text = 'TT / Cutter') and (JvEditRohwareNr.Text = '') then
begin
Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
JvEditRohwareNr.SetFocus;
end
else if (JvComboMaschine2.Text = 'TT600') and (JvEditRohwareNr.Text = '') then
begin
Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
JvEditRohwareNr.SetFocus;
end
else if (JvComboMaschine2.Text = 'Laser') and (JvEditRohwareNr.Text = '') then
begin
Messagedlg('Rohwaren-Nr. eintragen!', mtwarning, [mbok], 0);
JvEditRohwareNr.SetFocus;
end
else if (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;
Läßt sich das durch eine If-Abfrage beschreiben, so wie:
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;
Habe schon verschiedene versuche gemacht, jedoch ohne Erfolg. Könnte ich ich einen Schubser von Euch bekommen?
Danke, Luckner