TPlnResourceEntity - Exemples
| TPlnResourceEntity = class (TObject) | Interface de TPlnResourceEntity | Exemples de TPlnResourceEntity |
uses QubesPlanning;
var res : TPlanningResource;
var entity : TPlnResourceEntity;
res:=TPlanningResource.ConnectByName('Ilot montage');
for var j:=0 to res.EntitiesCount-1 do begin
entity:=res.GetEntity(j);
PrintLn(entity.GetRole);
PrintLn(entity.GetNom);
PrintLn(entity.GetLinked);
end;
var res : TPlanningResource;
var entity : TPlnResourceEntity;
res:=TPlanningResource.ConnectByName('Ilot montage');
for var j:=0 to res.EntitiesCount-1 do begin
entity:=res.GetEntity(j);
PrintLn(entity.GetRole);
PrintLn(entity.GetNom);
PrintLn(entity.GetLinked);
end;