Registriert seit: 10. Jun 2003
Ort: Berlin
9.582 Beiträge
Delphi 11 Alexandria
|
Re: Verschiedene Funktionen verschiedenen Benutzer zuweisen
10. Sep 2009, 23:40
Was meinen Vorschlag angeht:
Delphi-Quellcode:
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:
if UserRights and USERRIGHT_CONNECT > 0 then
...
// Recht setzen:
UserRights := UserRights or USERRIGHT_CONNECT;
// Recht entfernen:
UserRights := UserRights and not USERRIGHT_CONNECT;
So kannst du die Bits einzeln benutzen und nur einen oder bei mehr Rechten mehrere Integerwerte benutzen.
Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
|