Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Автоматическое освобождение структуры из памяти   Найти похожие ветки 

 
Progh   (2005-01-24 12:52) [0]

Структура данных освобождается из памяти авоматически или же ее нужно освобождать вручную, например :

 type
 TStructure = record
   S1: String;
   i1: Integer;
   m: array[0..255] of String;
 end;

procedure MyProc;
var
 c: TStructure;
 i: Integer;
begin
 c.s1 := "aaa";
 c.i1 := 200;
 for i := 0 to 255 do
   c.m[i] := IntToStr(i);
end;

procedure MyProc2;
var
 i: Integer;
begin
 for i := 0 to 1000 do
   MyProc;
end;

begin
 MyProc2;
end;

В данном примере программа возрастает на несколько киллобайт, как освобождать структуры после себя ?


 
Александр Иванов ©   (2005-01-24 12:56) [1]

Если ты по поводу переменной var
c: TStructure, она статическая, размещается в стеке и перестает существовать после выхода из процедуры MyProc. А насчет возрастания программы уточни.


 
Progh   (2005-01-24 12:59) [2]

Ну назначил я данные действия при нажатии на кнопку, и после ее нажатия программа возрастает на 4 кб. Причем данное возрастание размера происходит только после первого нажатия на кнопку.


 
Digitman ©   (2005-01-24 13:02) [3]


> В данном примере программа возрастает на несколько киллобайт,
> как освобождать структуры после себя ?


в данном примере никакого явного освобождения памяти не требуется


 
Digitman ©   (2005-01-24 13:19) [4]


> после ее нажатия программа возрастает на 4 кб. Причем данное
> возрастание размера происходит только после первого нажатия
> на кнопку


это совершенно нормальное явление



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

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

Наверх




Память: 0.47 MB
Время: 0.028 c
3-1104824144
tytus
2005-01-04 10:35
2005.02.06
Фильтрация данных.


14-1106139129
Prohodil Mimo
2005-01-19 15:52
2005.02.06
Win98 и WinXP не видят друг друга. как лечить?


1-1106200829
kyn66
2005-01-20 09:00
2005.02.06
Как убрать значек приложения из трея


14-1105981791
www.Vlad.uk
2005-01-17 20:09
2005.02.06
Скоро на нашей планете всё время будет ночь!


1-1106550880
ISK
2005-01-24 10:14
2005.02.06
Как получить наивысший уровень привилегий в ХР?