erweiterte IF - Bedingung

[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