title image


Smiley TThreadList, objectfreigabe schlägt fehl...
hi leute,



ganz kurz,

habe ne TThreadList namens Watchlist. wenn sich was an den zu speichernden objecten ändert, leere ich die Liste (+objecte-speicher) und

fuelle diese wieder neu.

Nur das Speicherfreigeben der objecte, bzw dessen abfrage funzt nicht zuverlässig.





procedure WatchListObjecteFreigeben;

var a : integer;

begin

try

with WatchList.LockList do begin

for a := Count-1 downto 0 do try

if Items[a] nil then //????????

Dispose( Items[a]);

except end; { *** Bessere Lösung moglich ? *** }

end;

finally

watchlist.UnlockList;

end;

end;





Danke ,

Uwe

Achte auf deine Gedanken - Sie sind der Anfang deiner Taten.   (Chinesisches Sprichwort )



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: