https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=DeleteObjects_%28objectlist%29 2026-05-02T08:07:15Z Historique pour cette page sur le wiki MediaWiki 1.18.6 https://frp.sage.fr/wiki1000/index.php?title=DeleteObjects_(objectlist)&diff=9962&oldid=prev 2014-11-07T08:12:42Z

<p>Page créée avec « &lt;source lang=&#039;delphi&#039;&gt;procedure DeleteObjects(iStopOnError:boolean);&lt;/source&gt; Cette procédure supprime les objets de la liste. {|class=&quot;wikitable&quot; |- |iStopOnError |Sto... »</p> <p><b>Nouvelle page</b></p><div>&lt;source lang='delphi'&gt;procedure DeleteObjects(iStopOnError:boolean);&lt;/source&gt;<br /> <br /> Cette procédure supprime les objets de la liste.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |iStopOnError<br /> |Stoppe si une erreur se produit<br /> |}<br /> <br /> * Si une transaction est ouverte la suppression se fait dans la transaction courante<br /> * Si aucune transaction n'est ouverte une transaction séparée est utilisé<br /> <br /> '''Pseudo code équivalent:'''<br /> &lt;source lang=&quot;delphi&quot;&gt;<br /> <br /> procedure doDeletes(iStopOnError:boolean);<br /> var idx:Integer; aRef:TitObject;<br /> begin<br /> //<br /> // Delete all the objects.<br /> //<br /> for idx:=Count-1 downto 0 do<br /> begin<br /> aRef := Refs[idx].Instance;<br /> if Assigned(aRef) then aRef._AddRef;<br /> Delete(idx);<br /> try<br /> if Assigned(aRef) then<br /> begin<br /> aRef.Deleted := TRUE;<br /> end;<br /> except<br /> if iStopOnError then<br /> begin<br /> Insert(idx,aRef);<br /> if Assigned(aRef) then aRef._Release;<br /> raise;<br /> end;<br /> end;<br /> if Assigned(aRef) then aRef._Garbage;<br /> end;<br /> end;<br /> <br /> procedure DeleteObjects(iStopOnError:boolean);<br /> begin<br /> if ClassManager.TranCount&gt;0 then<br /> begin<br /> // instances are removed from the list<br /> doDeletes(iStopOnError);<br /> end<br /> else<br /> begin<br /> old := ClassManager.NewTransContext;<br /> try<br /> ClassManager.BeginTran;<br /> try<br /> doDeletes(iStopOnError);<br /> ClassManager.Commit([coNoConfirmDialog]);<br /> except<br /> Classmanager.RollBack;<br /> raise ;<br /> end;<br /> finally<br /> ClassManager.ActivateContext(old);<br /> end;<br /> end;<br /> end;<br /> <br /> &lt;/source&gt;<br /> <br /> Voir aussi:<br /> <br /> {{Footer|Listes d'objets (tech)}}<br /> [[category:Listes d'objets]]</div>

Syfre