Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

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

AW: erweiterte IF - Bedingung

  Alt 12. Apr 2015, 21:02
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)
mfg
Helmi

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

Geändert von Helmi (12. Apr 2015 um 21:08 Uhr)
  Mit Zitat antworten Zitat