При каждом чтении из файла потребление памяти увеличивается на 8 Кб - PascalABC.NET

Формулировка задачи:

Цикл с чтением из файла. В диспетчере задач после выполнения str := sr.ReadToEnd(); память увеличивается на 8 Кб. После многих раз выполнения цикла это уже заметно. Это утечка памяти? Можно как-то побороть?

uses System.IO;
var str, path: string;
    sr: System.IO.StreamReader;
begin
 path:= 'D:\chat.txt';
 while (true) do begin
  sr := new StreamReader(path);
  str := sr.ReadToEnd;
  sr.Close();
  sr:=nil;
  sleep(1000);
 end;
end.

Решение задачи: «При каждом чтении из файла потребление памяти увеличивается на 8 Кб»

textual
                            Листинг программы 
                        
                              System.GC.Collect();
  System.GC.WaitForPendingFinalizers();

Оцени полезность:

5 голосов , оценка 4.6 из 5

Похожие ответы