erweiterte IF - Bedingung

[Helmi]

wir wissen ja nicht, was dein Programm tut, bzw. tun soll

wir kennen bislang nur die paar Zeilen Code, die du uns in deinen ersten Post geschrieben hast

und all unsere Glaskugeln sind zur Reparatur (sehr anfälliges Produkt)

[himitsu]

Wann kommt falsch und bei welchen Eingabewerten?

Ich würde aber fast wetten du hat ein paar Klammern vergessen.
Denn dein Code macht es aktuell so

Delphi-Quellcode:

if (not (edit1.Text = 'Sekretäriat')) and (edit2.Text = 'Faldera123')
  or (not (edit1.Text = 'sekretäriat')) and (edit2.Text = 'Faldera123')
  or (not (edit1.Text = 'Schüler')) and (edit2.Text = 'Klasse123')
  or (not (edit1.Text = 'schüler')) and (edit2.Text = 'Klasse123')
then
  showmessage('Falsch.');

Delphi-Quellcode:

if ((edit1.Text <> 'Sekretäriat') and (edit2.Text = 'Faldera123'))
  or ((edit1.Text <> 'sekretäriat') and (edit2.Text = 'Faldera123'))
  or ((edit1.Text <> 'Schüler') and (edit2.Text = 'Klasse123'))
  or ((edit1.Text <> 'schüler') and (edit2.Text = 'Klasse123'))
then
  showmessage('Falsch.');

Lösungen:

Delphi-Quellcode:

if not ((edit1.Text = 'Sekretäriat') and (edit2.Text = 'Faldera123'))
  or not ((edit1.Text = 'sekretäriat') and (edit2.Text = 'Faldera123'))
  or not ((edit1.Text = 'Schüler') and (edit2.Text = 'Klasse123'))
  or not ((edit1.Text = 'schüler') and (edit2.Text = 'Klasse123'))
then
  showmessage('Falsch.');

Delphi-Quellcode:

if not (edit1.Text = 'Sekretäriat') and not (edit2.Text = 'Faldera123')
  or not (edit1.Text = 'sekretäriat') and not (edit2.Text = 'Faldera123')
  or not (edit1.Text = 'Schüler') and not (edit2.Text = 'Klasse123')
  or not (edit1.Text = 'schüler') and not (edit2.Text = 'Klasse123')
then
  showmessage('Falsch.');

Delphi-Quellcode:

if (edit1.Text <> 'Sekretäriat') and (edit2.Text <> 'Faldera123')
  or (edit1.Text <> 'sekretäriat') and (edit2.Text <> 'Faldera123')
  or (edit1.Text <> 'Schüler') and (edit2.Text <> 'Klasse123')
  or (edit1.Text <> 'schüler') and (edit2.Text <> 'Klasse123')
then
  showmessage('Falsch.');

Diese drei Lösungen machen alle das Gleiche, wenn man die boolsche Algebra gelernt hat.

Siehe auch if ((edit1.text='Sekretäriat') or (edit1.text='sekretäriat')) and (edit2.text='Faldera123') then
Wie im Mathe: Punktrechnung vor Strichrechnung ... AND vor OR
und NOT so, wie das Minus von negativen Zahlen.

Also solltest du dieses vielleicht besser lernen, z.B. über eines der unzähligen Tutorials.



PS: AnsiSameText


[edit]
ähhh, verwende doch bitte [delphi]...[delphi]

@Helmi: Nach den NOT und um beide AND-Operatoren

[Helmi]

Zitat von himitsu:

@Helmi: Nach den NOT und um beide AND-Operatoren

stimmt - sorry!

Hab meinen Post noch erweitert

[himitsu]

Ich mache die vergleiche meistens gern direkt case-insensitiv, da wo sie es sein sollen. (außer vielleicht wenn es sein muß, bezüglich der Performance auch vorher)

So, und nun sage mal jemand, warum man Mathe lernen soll ... braucht man ja eh nie wieder im Leben.



------------

Es gibt 10 Arten von Menschen.
Die, welche binär können, und jene, welche das nicht können.