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