Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизДинамические массивы внутри записи Найти похожие ветки
← →
BOA_KAA (2003-02-17 17:04) [0]Вот такой вопрос возник
Допустим, есть такой набор типов данных:
type
TArr1 = array of TSomeType1;
Trec1 = record
A1: TArr1;
B: SomeType2;
end;
TA2 = array of Trec1;
var
A: TA2;
Для освобождения массиваA
понятноA:=nil
А вот освобождается ли при этом то, что находится вA.A1
или же до кучи надоA.A1:=nil;
← →
han_malign (2003-02-17 17:13) [1]
program dyn2;
{$APPTYPE CONSOLE}
type
TSomeType1=word;
TSomeType2=byte;
TArr1 = array of TSomeType1;
Trec1 = record
A1: TArr1;
B: TSomeType2;
end;
TA2 = array of Trec1;
var
A: TA2;
i: integer;
begin
Writeln(AllocMemSize);
SetLength(A,1001);
Writeln(AllocMemSize);
for i:=0 to 1000 do SetLength(A[i].A1,2000);
Writeln(AllocMemSize);
A:=nil;
Writeln(AllocMemSize);
end.
Результат:
0
8016
4020028
0
Делай выводы...
З.Ы. Всего две минуты на тестовое приложение...
← →
BOA_KAA (2003-02-17 17:15) [2]Тады ОК! Сенькс!:-)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c