Forum: Programmieren allgemein
by jaenicke,
10. Sep 2009
Was meinen Vorschlag angeht:const
USERRIGHT_CONNECT = 1;
USERRIGHT_DISCONNECT = 2;
USERRIGHT_CLOSE = 4;
USERRIGHT_PRINT = 8;
USERRIGHT_EXPORT_HTML = 16;
USERRIGHT_EXPORT_PDF = 32;
...
// Integerwert auf Recht prüfen:
Forum: Programmieren allgemein
by jaenicke,
10. Sep 2009
Nein, das war anders gemeint. Du versuchst die Berechtigung zu finden, suchst also alle Einträge, deren Rechte-ID mit deiner aktuellen übereinstimmt. Ist die Anzahl der Ergebnisse größer als 0, dann ist die Berechtigung vorhanden.
Ich selbst würde aber wie gesagt lieber gleich einzelne Bits nehmen, das ist noch einfacher.
Forum: Programmieren allgemein
by jaenicke,
8. Sep 2009
Wie wäre es statt deinem zweiten Quelltext damit: 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;
...