erweiterte IF - Bedingung

[himitsu]

OR ~ +
AND ~ *

http://docwiki.embarcadero.com/RADSt...von_Operatoren
http://de.wikipedia.org/wiki/Operatorrangfolge

[DeddyH]

Sag ich ja.

[himitsu]

Ich auch ... nur nochmal zur Sicherheit, falls es keiner glauben will.

#4

[DeddyH]

Das geht in dem Monster-Post allerdings unter, Du solltest vielleicht Psalm und Vers angeben

[BadenPower]

Unter Berücksichtigung des Programmierstils des TE müsste das so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  if (     ((Edit1.Text = 'Sekretäriat') or (Edit1.Text = 'sekretäriat'))
       and (Edit2.Text = 'Faldera123')
     ) then
   begin
    Form2.Show;
    Form1.Hide
   end;

  if (     ((Edit1.Text = 'Schüler') or (Edit1.Text = 'schüler'))
       and (Edit2.Text = 'Klasse123')
     ) then
   begin
    Form3.Show;
    Form1.Hide
   end;

  if (     ( not ((Edit1.Text = 'Sekretäriat') and (Edit2.Text = 'Faldera123')) )
       and ( not ((Edit1.Text = 'sekretäriat') and (Edit2.Text = 'Faldera123')) )
       and ( not ((Edit1.Text = 'Schüler') and (Edit2.Text = 'Klasse123')) )
       and ( not ((Edit1.Text = 'schüler') and (Edit2.Text = 'Klasse123')) )
     ) then
   begin
    ShowMessage('falsch');
   end;

end;

Aber es sollte doch wohl 'Sekretariat' heissen und nicht 'Sekretäriat'.

[DeddyH]

Das müsste dann logisch diesem hier entsprechen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ( ((Edit1.Text = 'Sekretäriat') or (Edit1.Text = 'sekretäriat'))
       and (Edit2.Text = 'Faldera123')
     ) then
   begin
    Form2.Show;
    Form1.Hide
   end

  else if ( ((Edit1.Text = 'Schüler') or (Edit1.Text = 'schüler'))
       and (Edit2.Text = 'Klasse123')
     ) then
   begin
    Form3.Show;
    Form1.Hide
   end

  else
   begin
    ShowMessage('falsch');
   end;

end;

[edit] Zu dem Zugriff auf die globale Form1-Variable sag ich mal nichts. [/edit]

[BadenPower]

Zitat von DeddyH:

[edit] Zu dem Zugriff auf die globale Form1-Variable sag ich mal nichts. [/edit]

Ich habe es bewußt nicht geändert, da ich nicht sicher sein konnte, ob die Abfragen im Programm des TE in Form1 ausgeführt werden.

[DeddyH]

Ich ja auch nicht

[himitsu]

Wenn der TE das dann mal anpasst, dann könnte er seinen Units, Forms und Komponenten auch gleich ein paar sprechende Bezeichner verpassen.

[Jumpy]

[OT]
Sollte es nicht lieber Sekretariat heißen. Das hat zwar nichts mit dem Fehler zu tun, würde aber die spätere Akzeptanz des Programms beim Deutschlehrer steigern.

Hoffentlich hab ich jetzt keinen Rechtschreibfehler in meinem besserwisserischen Beitrag hier.
[/OT]