Verarbeiten von DB-Berechtigungen

[Ati]

Genau der richtige Hinweis. Für die Allgemeinheit nochmal die ganze Prozedure:

Delphi-Quellcode:

procedure TfrmLogin.btnloginClick(Sender: TObject);
var rolle,level:String;
begin
  {frmMain.Visible:= true;
  close;
  frmLogin := nil;}
  qrlog.SQL.Text:='SELECT RDB$RELATION_NAME,RDB$PRIVILEGE from RDB$USER_PRIVILEGES where (rdb$user_privileges.RDB$USER = '''+eduser.Text+''') and (rdb$user_privileges.rdb$object_type=13)' ;
  qrlog.open;
  label3.Caption:=qrlog.FieldByName('RDB$RELATION_NAME').AsString;
  rolle:=qrlog.FieldByName('RDB$RELATION_NAME').AsString;
  qrlog.Close;
  qrlog.SQL.Clear;
  qrlog.SQL.Text:='SELECT RDB$PRIVILEGE from RDB$USER_PRIVILEGES where (rdb$user_privileges.RDB$USER='''+rolle+''')' ;
  qrlog.Open;
  while not qrlog.EOF do
  begin
    level:= level+qrlog.FieldByName('rdb$privilege').AsString;
    qrlog.next;
  end;
  qrlog.Close;
  showmessage(level);
end;

So möchte ich jetzt eigentlich weitergehen...die Variable "Level" an das Hauptformular übergeben (weiß aber noch nicht genau wie) und dort dann den String Zeichen für Zeichen auseinander nehmen um so die einzelnen Controls zu aktivieren bzw. deaktivieren. Ist das so richtig??