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

Вниз

StrAlloc...StrDispose   Найти похожие ветки 

 
Новиков_Н   (2004-10-31 21:20) [0]

Мастера, подскажите! Нужно ли в данной ситуации 2 раза выделять память
переменной Buffer и два раза же ее освобождать?
Спасибо!



const
   MAX_BUFF_SIZE :Byte = High(Byte);
var
 Buffer :PChar;

begin

with ListBox1.Items do
 begin
Buffer :=StrAlloc(MAX_BUFF_SIZE);
   GetWindowsDirectory(Buffer,MAX_BUFF_SIZE);
   Add("Windows directory: "+Buffer);
StrDispose(Buffer); // ?
   Buffer :=StrAlloc(MAX_BUFF_SIZE); // ?

   GetSystemDirectory(Buffer,MAX_BUFF_SIZE);
   Add("System directory: "+Buffer);
StrDispose(Buffer);
 end;
end;

end;



 
panov ©   (2004-10-31 21:40) [1]

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


 
Новиков_Н   (2004-10-31 21:44) [2]

Просто хотел уточнить на всякий.. Спасибо!



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

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

Наверх




Память: 0.46 MB
Время: 0.052 c
1-1099026081
UserUserov
2004-10-29 09:01
2004.11.14
ListBox


4-1097126691
CJ Shark
2004-10-07 09:24
2004.11.14
Как писать биты напрямую в LPT в WinXP?


1-1098909761
Мирон
2004-10-28 00:42
2004.11.14
Нужно проверить возможность создания каталога, не создавая его


14-1098792737
Erik1
2004-10-26 16:12
2004.11.14
Создание TMemDataSet для подержки древовидной структуры.


3-1097649698
alsov1
2004-10-13 10:41
2004.11.14
Как передать результат селекта параметром в процедуру?