Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Автоосвобождение динамического массива   Найти похожие ветки 

← →
Savik   (2003-01-29 17:49) [0]

При уничтожении объекта освободится ли память под динамической массив строк, являющийся приватным членом этого объекта?

---

← →
Delirium^.Tremens   (2003-01-29 17:57) [1]

А что, какие-то проблемы освободить самому в destructor"е?

---

← →
han_malign   (2003-01-29 18:06) [2]

Освободится:
program dyn;
{$APPTYPE CONSOLE}
uses SysUtils;
type
TDyn= class
private
F_pDyn: array of string;
public
constructor Create;
end;
constructor TDyn.Create;
var i: integer;
begin
SetLength(F_pDyn,100);//1Mb
for i:=0 to High(F_pDyn)do F_pDyn[i]:="Str #"+IntToStr(i+1);
end;
var _dyn: TDyn;
begin
Writeln(AllocMemSize);
_dyn:=TDyn.Create;
Writeln(AllocMemSize);
_dyn.Free;
Writeln(AllocMemSize);
end.

Результат:
C:\Delphi\Projects\fff>dyn.exe
1704
3724
1704

C:\Delphi\Projects\fff>

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.01 c