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

Вниз

Многоразовое использование памяти   Найти похожие ветки 

 
learner ©   (2006-09-27 10:44) [0]

Здравствуйте !
Какой из двух вариантов предпочтительнее использовать
в плане "чтобы системе проще жилось" и быстродействия ?
Вариант 1:
function GetResult(var pData: Pointer; var cbData: DWord): DWord;
var
NeedMemSize: DWord;
begin
NeedMemSize:=0;
Result:=WorkWithMem(pData, cbData, NeedMemSize);
if Result = Мало_памяти then
 begin
  ReallocMem(pData, NeedMemSize);
  cbData:=NeedMemSize;
  Result:=WorkWithMem(pData, cbData, MemSize);
 end;
end;

procedure Test(aCount: integer);
var
i: integer;
pData: Pointer;
cbData: DWord
begin
cbData:=0;
pData:=nil;
try
 for i:=0 to aCount - 1 do GetResult(pData, cbData);
finally
 ReallocMem(pData, 0);
end;
end;

Вариант 2:
function GetResultFix: DWord;
var
NeedMemSize: DWord;
pData: array[0..MAX_POSSIBLE_SIZE_FOR_CURRENT_WORK - 1] of Byte;
begin
Result:=WorkWithMem(@pData[0], MAX_POSSIBLE_SIZE_FOR_CURRENT_WORK, NeedMemSize);
end;

procedure TestFix(aCount: integer);
var
i: integer;
begin
for i:=0 to aCount - 1 do GetResultFix;
end;


 
clickmaker ©   (2006-09-27 11:02) [1]

нет тут однозначного ответа.
Зависит от приоритета твоей задачи в системе, самого MAX_POSSIBLE_SIZE_FOR_CURRENT_WORK, размера оперативки, своп-файла...
Если проге часто требуются блоки примерно одинакового размера, то конечно лучше выделить один раз по максимуму.
Если разного и не очень часто, то лучше по запросу.


 
Игорь Шевченко ©   (2006-09-27 11:05) [2]


> Какой из двух вариантов предпочтительнее использовать
> в плане "чтобы системе проще жилось" и быстродействия ?


первый. он проще и понятнее.


 
learner ©   (2006-09-27 13:03) [3]

Спасибо



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

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

Наверх




Память: 0.47 MB
Время: 0.047 c
1-1157703651
КУ
2006-09-08 12:20
2006.10.15
TTreeView и TPopupMenu


15-1158929841
StriderMan
2006-09-22 16:57
2006.10.15
Куда попадают объекты после деструктора?


5-1141035730
Pazitron_Brain
2006-02-27 13:22
2006.10.15
TEmbeddedWB


15-1158848336
GeLLeR
2006-09-21 18:18
2006.10.15
Ассемблер


2-1159178234
Footballer
2006-09-25 13:57
2006.10.15
Как програмно записать файлы на диск?