Утечка памяти -помогите!

← →
Unknown user © (2005-06-14 21:49) [0]

Подскажите почему в следующем коде при вызове процедуры Move диспетчер задач Windows показывает увеличение памяти занятой процессом, с каждым вызовом расход памяти увеличивается примерно на Size*1.5:

if FFileType=ftBMP then begin
RCnt:=FBMPBufSize div FBMPRowBytes;
RInd:=(FHeight-Y-1) div RCnt;
RBtm:=Min(RInd*RCnt,FHeight-RCnt);;
RTop:=Min((RInd+1)*RCnt-1,FHeight-1);;
RCnt:=RTop-RBtm+1;
Size:=RCnt*FBMPRowBytes;
FDIB.SetSize(FWidth,RCnt,FBPP);
Src:=@(PByteArray(FBMPBits)[RBtm*FBMPRowBytes]);
Dst:=FDIB.ScanLine[FDIB.Height-1];;

//тут утечка
Move(Src^,Dst^,Size);

FLoadedRect:=Rect(0,FHeight-RTop-1,FWidth-1,
FHeight-RBtm-1);

процедура копирует область FLoadedRect из битмапа на диске отображенного в память процесса при помощи MapViewFile в битмап FDIB, ширина которого=ширине битмапа источника, а высота=RCnt. FDIB.SetSizes срабатывет только если параметры передаваемые в нее отличаются от уже установленных -в нашем случае она выделяет память под FDIB только раз.

← →
Unknown user © (2005-06-15 09:43) [1]

Никто ничего не подскажет?

Утечка памяти -помогите! Найти похожие ветки