TPlanningResource.DeleteEntity
| TPlanningResource = class (TObject) | Interface de TPlanningResource | Exemples de TPlanningResource |
Supprime une entité d'une ressource
Syntaxe
procedure DeleteEntity(idx: Integer)
idx: index dans la collection des entités de la ressource
Remarques
L'index va de 0 à EntitiesCount-1.
Si l'index n'est pas dans la plage autorisée, la fonction provoque une exception.
Exemples
uses QubesPlanning;
var res : TPlanningResource;
var entity : TPlnResourceEntity;
// On parcourt les entités de la ressource "Monteurs"
// et on supprime celles dont le nom est "test"
res:=TPlanningResource.ConnectByName('Monteurs');
for var i:=res.EntitiesCount-1 downto 0 do begin
entity:=res.GetEntity(i);
if entity.GetNom='test' then
res.DeleteEntity(i);
end;
var res : TPlanningResource;
var entity : TPlnResourceEntity;
// On parcourt les entités de la ressource "Monteurs"
// et on supprime celles dont le nom est "test"
res:=TPlanningResource.ConnectByName('Monteurs');
for var i:=res.EntitiesCount-1 downto 0 do begin
entity:=res.GetEntity(i);
if entity.GetNom='test' then
res.DeleteEntity(i);
end;