erweiterte IF - Bedingung

[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]

[BadenPower]

Zitat von Jumpy:

Hoffentlich hab ich jetzt keinen Rechtschreibfehler in meinem besserwisserischen Beitrag hier.

Rechtschreibfehler habe ich in Deinem Beitrag jetzt keine gesucht, aber eine Leseschwäche gefunden.

Aber das von Dir Bemängelte steht schon in #15.

[Delbor]

Hi zusammen

Zitat:

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

Au ja!! Und nicht mehr die Textinhalte der Edits direkt vergleichen, sondern diese in Variablen schreiben und diese dann verwenden.
In einem Record könnten die Inhalte der Edits abgelegt werden. Da unbekannt ist, was der TE damit genau festhält/vergleichen will, verzichte ich hier allerdings - auch zur Verdeutlichung - auf sprechende Namen.

Delphi-Quellcode:

MemberRecord = record
  Edit1Text: String;
  Edit2Text :String;

Nun kann geprüft werden, ob die Felder den richtigen Inhalt haben.

Delphi-Quellcode:

begin
  if MemberRecord.Edit1Text = AnsiLowerCase('Sekretariat') then begin
    if MemberRecord.Edit2Text <> 'Faldera123' then
      ShowMessage('Falsch');
  end;

  if MemberRecord.Edit1Text = AnsiLowerCase('Schüler') then begin
    if MemberRecord.Edit2Text <> 'Klasse123' then
      ShowMessage('Falsch');
  end
end;

Es scheint mir hier allerdings um 'Benutzer' einer Schule zu gehen - und die sind entweder Schüler oder Angestellte. Von daher müsste das wohl nochmal anders gelöst werden, zB. mit einer Klasse TSchulhausMembers...

Gruss
Delbor