Скачать: CL | DM;

Утечка памяти......в чем трабла???   Найти похожие ветки 

← →
malefik   (2003-09-09 13:33) [0]

var _file: Integer ;
_data, _date, _time: string ;
Buffer: PChar;
begin
try
_file := FileOpen(_FileName ,fmShareDenyNone);
Getmem(Buffer,_sizeFile + 1);
FileSeek (_file, _sizeFile-(_New_CountRecord*136) ,0);
FileRead(_file, Buffer^,136);
_date := _alarm_oven._ConvertDate(copy (Buffer,1,8));
_time :=copy (Buffer,10,8);
finally
FreeMem(Buffer);
FileClose(_file);
end;

При вызове данной функции в цикле несколько сотен раз
ВОзникает EOUTOFMEMORY...

Всё ли здесь правильно????

---

← →
clickmaker ©   (2003-09-09 13:43) [1]

Под отладчиком глянь, на какой строке вываливается аут оф мемори. Криминала в коде вроде нет

Кстати, а _sizeFile откуда берется?

---

← →
jack128 ©   (2003-09-09 16:10) [2]

коректнее так

var _file: Integer ;
_data, _date, _time: string ;
Buffer: PChar;
begin
_file := FileOpen(_FileName ,fmShareDenyNone);
try
Getmem(Buffer,_sizeFile + 1);
try
FileSeek (_file, _sizeFile-(_New_CountRecord*136) ,0);
FileRead(_file, Buffer^,136);
_date := _alarm_oven._ConvertDate(copy (Buffer,1,8));
_time :=copy (Buffer,10,8);
finally
FreeMem(Buffer);
end;
finally
FileClose(_file);
end;
end;Но не думаю, что ошибка из-за этого

---

← →
savva ©   (2003-09-09 18:24) [3]

а я бы написал вот так
FileRead(_file, Buffer^,136);
_date := _alarm_oven._ConvertDate(copy (Buffer^,1,8));

---

← →
miek ©   (2003-09-09 23:39) [4]

А может, надо не copy(buffer,1,8) а copy(Buffer^,1,8)?

---

← →
malefik   (2003-09-10 08:28) [5]

Sorry коллеги.....вопрос снят.....
>>clickmaker.. просмотрел внимательно....ругался он на STRINGGRID как ни странно ...
1.Читаю запись...
2. добавляю STRINGGRID одну строку свойством RowCount (ну так легче думал)....оказалось что он на этом затыкается...(видать маленько промах допустили программеры BORLAND...память течет видно невооруженным глазом)...
3. Добавляю прочитанные данные в STRINGGRID....

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c