Verschiedene Funktionen verschiedenen Benutzer zuweisen

[jaenicke]

Wie wäre es statt deinem zweiten Quelltext damit:

Delphi-Quellcode:

  if FPasswort.ShowModal = mrOK then
  begin
    Anmelden1.Enabled := false;
    Abmelden.Enabled := true;
    UserRights.BenutzerName := FPasswort.BenutzerED.Text;
    DM_PS.ReadUserRights(UserRights);
    BTVerbinden.Enabled := UserRights.Verbinden = 1;
    AnlagenSetup1.Enabled := UserRights.Zentralen > 0;
    Hardware.Hardwareanbindung.RGZentralentyp.Enabled := UserRights.Zentralen >= 3;
    Hardware.Hardwareanbindung.SpeichernButton.Enabled := UserRights.Zentralen >= 3;
    Hardware.Hardwareanbindung.UebernehmenButton.Enabled := UserRights.Zentralen >= 3;

Zudem könnte das Setzen der Rechte eigentlich gleich automatisch beim Setzen der Property BenutzerName oder falls vorhanden Passwort passieren statt separat.

Was das Speichern angeht:
Wozu der Record? Wenn es unter 30 Rechte oder so wären, reicht doch ein simpler Integerwert von 4 Byte mit gesetzten Bits aus, wenn es mehr sind, müsste halt noch einer her oder so.