🚀 go-pugleaf

"F Cocquyt" <Frederik.cocquyt@NOSPAMpandora.be> wrote in message
news:uPW48.4490$%Y.1056550948@hebe.telenet-ops.be...
> Hallo,
>
> Ik heb volgend vraagje:
> Ik cree�r een random aantal series in een TDBChart. als volgt:
>
> var
>  teller: integer;
>  MijnSeries:TBarseries;
> begin
> ....
> for teller:=1 to DM.DaSPloegen.RecordCount do
>     begin
>     MijnSeries := TBarSeries.Create(Self);
>     end;
>
> .....
>
> Ik zou deze series bij het sluiten van mijn form willen vrijgeven, maar
> indien ik zeg
> MijnSeries.free worden deze niet allemaal vrijgegeven (of heb ik het
> verkeerd voor. ik krijg hier wel een acces violation error door)
> Hoe zorg ik er voor dat ze wel allemaal worden vrijgegeven?
>


Je wijst steeds een nieuwe instantie van het object aan dezelfde
objectpointer toe. Je moet echter elke instantie van het object bijhouden.
Omdat je de parameter 'self' aan de constructor meegeeft hoef je niet te
free'en. Het parent object (in dit geval TDBChart) zorgt er dan voor dat de
child objecten opgeruimd worden. Als je per se zelf wilt free'en kun je het
zo oplossen:

var olist: TList;
    MijnSerie: TBarseries;

olist:=TList.Create;
DM.DaSPloegen.First;
while not DM.DaSPloegen.EOF do
begin
    MijnSerie:=TBarSeries.Create(nil);      // hier nil meegeven ipv self
    TList.Add(MijnSerie);
end;

Let hier ook op het gebruik van de while not ...eof do i.p.v. de for-loop.
Dit geeft minder kans op fouten.

Bij het free'en kun je dan dit doen:

for i:=0 to List.Count-1 do
     TBarSeries(List[i]).Free;


Joris.