TPlanningResource - Exemples
| TPlanningResource = class (TObject) | Interface de TPlanningResource | Exemples de TPlanningResource |
Pour bien comprendre cet exemple, assurez-vous de connaître la fonction ResourceIDsByRole et la classe TIntegerList :
uses SysUtils, QubesPlanning;
// On récupère toutes les ressources qui possèdent
// au moins une entité avec le rôle "Utilisateur"
var liste := TIntegerList.Create;
liste.AsString := ResourceIDsByRole('Utilisateur');
// On parcourt ces ressources pour afficher leur nom
for var i:= 0 to liste.Count-1 do begin
var res := TPlanningResource.ConnectByID(liste[i]);
PrintLn(res.Nom);
end;
// On récupère toutes les ressources qui possèdent
// au moins une entité avec le rôle "Utilisateur"
var liste := TIntegerList.Create;
liste.AsString := ResourceIDsByRole('Utilisateur');
// On parcourt ces ressources pour afficher leur nom
for var i:= 0 to liste.Count-1 do begin
var res := TPlanningResource.ConnectByID(liste[i]);
PrintLn(res.Nom);
end;