TUser.FunctionService
| TUser = class (TObject) | Interface de TUser | Exemples de TUser |
Renvoie le service d'un rôle de l'utilisateur
Syntaxe
property FunctionService[index: Integer]: String read GetFunctionService
index: index du rôle (triplet site/service/fonction)
Remarques
- Les triplets site/service/fonction de l'utilisateur sont indexés de 0 à FunctionCount - 1.
- FunctionService renvoie uniquement le service. Pour renvoyer la fonction ou le site, voir Function et FunctionSite.
Exemples
uses QubesUsers, DataGrid;
// Création d'une DataGrid
var dgTriplets:=TDataGrid.Create;
dgTriplets.AddColumn('Site', cssText);
dgTriplets.AddColumn('Service', cssText);
dgTriplets.AddColumn('Fonction', cssText);
// Récupération des triplets site/service/fonction dans la DataGrid
var user := TUser.Connect('mgeller');
var i : Integer;
for i:=0 to user.FunctionCount - 1 do begin
dgTriplets.Append;
dgTriplets.CellData[0]:=user.FunctionSite[i];
dgTriplets.CellData[1]:=user.FunctionService[i];
dgTriplets.CellData[2]:=user.Function[i];
end;
// Affichage
PrintLn(dgTriplets.AsCSV);
// Création d'une DataGrid
var dgTriplets:=TDataGrid.Create;
dgTriplets.AddColumn('Site', cssText);
dgTriplets.AddColumn('Service', cssText);
dgTriplets.AddColumn('Fonction', cssText);
// Récupération des triplets site/service/fonction dans la DataGrid
var user := TUser.Connect('mgeller');
var i : Integer;
for i:=0 to user.FunctionCount - 1 do begin
dgTriplets.Append;
dgTriplets.CellData[0]:=user.FunctionSite[i];
dgTriplets.CellData[1]:=user.FunctionService[i];
dgTriplets.CellData[2]:=user.Function[i];
end;
// Affichage
PrintLn(dgTriplets.AsCSV);