erweiterte IF - Bedingung

[MasterDoge]

Guten Abend ihr,
ich habe mit Lazarus angefangen, für die Schule einen Vertretungsplan zu erstellen.
Ich versuche seit einer Stunde, bei bestimmten Fällen keine Nachricht zu schicken:

if (edit1.text='Sekretäriat') or (edit1.text='sekretäriat') and (edit2.text='Faldera123')

then begin

form2.show;

form1.hide;

end;

then begin

form3.show;

form1.hide;

end;

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.');

So weit habe ich das bis jetzt, aber es kommt jetzt jedes Mal die Nachrricht "Falsch".
Könnt ihr mir velleicht weiterhelfen?
Lg Tilman

[Helmi]

setz mal vor dem not jeweils noch eine offene Klammer und vor dem nächsten or eine geschlossene Klammer

oder

Delphi-Quellcode:

var
  S1: String;
  S2: String;

begin
  S1 := AnsiLowerCase(Edit1.Text);  //klein schreiben
  S2 := Edit2.Text;
//  S2 := AnsiLowerCase(Edit2.Text);

  If ((S1 <> 'sekretäriat') and (S2 = 'Faldera123')) or ((S1 <> 'schüler') and (S2 = 'Klasse123')) then
    ShowMessage('falsch');
end;

Ich schreibe einfach erstmal alles klein (AnsiLowerCase ) - so brauch ich nicht auf die Groß-/Kleinschreibung im Vergleich achten!
(case sensitive)

[mkinzler]

Den OR hat eine höhere Priorität wie AND

[DeddyH]

Zitat von mkinzler:

Den OR hat eine höhere Priorität wie AND

Ist das nicht genau andersherum? IIRC gilt: NOT > AND > OR

[himitsu]

OR ~ +
AND ~ *

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

[DeddyH]

Sag ich ja.

[MasterDoge]

Also: Ich habe in der Schule das Fach Informatik seit einem drei viertel Jahr.
Wir haben über die Osterferien die Aufgabenstellung erhalten, irgendetwas zu programmieren.
Ich bin auf die Idee gekommen, einen Vertretungsplan zu erstellen, welcher nicht für die Schule an sich geeignet ist, sondern einfach eine gute Note gibt, da dieses Projekt ein bisschen umfangreicher ist. Ich habe mit einer Anmeldeform angefangen, welche sich nach richtiger Benutzer - und Passworteingabe entweder in die (neue) Form 2 des Schülers oder in die Form 3 des Sekretariats übergeht:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin

  if (edit1.text='Sekretariat') or (edit1.text='sekretariat') and (edit2.text='123')
  then begin
  form2.show;
  form1.hide;
  end;
  if (edit1.text='Schüler') or (edit1.text='schüler') and (edit2.text='456')
  then begin
  form3.show;
  form1.hide;
  end;

Das eigentliche Problem, dass sich mir dann gestellt hast, ist dass ich versucht hatte, eine Nachicht anzeigen zu lassen, wenn der Nutzername, oder das Passwort falsch ist.

[BadenPower]

Zitat von MasterDoge:

Das eigentliche Problem, dass sich mir dann gestellt hast, ist dass ich versucht hatte, eine Nachicht anzeigen zu lassen, wenn der Nutzername, oder das Passwort falsch ist.

Dann sollten die Vorschläge #15 oder besser #16 für Dich das Richtige sein.

[MasterDoge]

Also:
Der Pc sagt mir jetzt verschiedene Sachen, unter anderem, bei dem Fall, wo er mich eigentlich einloggen sollte, dass die Eingabe falsch ist, und dann meldet er mich an.
Wenn ich im oberen Fenster falsch bin, zeigt er mir gar keine Nachricht an.
Und wenn ich im unteren Fenster falsch bin, sagt er mir, dass ich Falsch bin, öffnet mir auch gleichzeitig den Vertretungsplan.
ICh habe das mit allen drei der Lösungen ausprobiert, keine funktioniert.
Lg Tilman

[himitsu]

Naja, etwas Wichtiges hast du immernoch vergessen zu erklären, was genau du wie prüfen willst.

Versuch es doch mal als deutschen Satz zu beschreiben.