dyn array erweitern problem

[supermuckl]

hiho.. hab mir mal vor ner woche mal schnell nen kleines prog schreiben wollen..
hab halt damit den verzeichnisbaum rekursiv erfassen wollen und das in ein dynamisches array schreiben wollen ( path + filename usw )

das dynamische array war vom typ record wobei dieses 2 string und eine integer variable beinhaltete.

wenn ich nun mit diesem findfirst, findnext gedöns das dynarray gefüllt hatte stieg der ramverbrauch ins unermessliche an und dann war nach ein paar sekunden sense ( nicht genügend speicher verfügbar fehler )

das problem war, das ich bei jedem schleifendurchgang ( der ja jedesmal ein file erfasste ) das dynamische array um 1 item vergrössert hatte..

wenn ich dieses vergrößern nun alle 1000 files(schleifendurchgänge) ausgelöst hatte und das array um 1000 items vergrössert hatte, funktionierte alles bestens ( ram verbrauch normal usw )

was genau hat sich hierbei abgespielt ?

wieso steigt der ramverbrauch so an ? und mit blockmäßiger vergrösserung nicht ?

hoffe mir kann jemand ein wenig erklären was da abgeht

hat bestimmt was mit der array verwaltung zu tun..

dieser code wurde verwendet, um in der schleife, das array zu vergrössern:

Delphi-Quellcode:

         if ((filecount mod 1000) = 0 )then setlength(alist,length(alist)+1000);
          inc(filecount);

und dieser hatte nicht funktioniert:

         setlength(alist,length(alist)+1);