TStringGrid+TSparseArray

← →
Tuborg © (2005-05-20 15:42) [0]

Есть некая прога, которая всю дорогу кидает что-то в StringGrid, где-то через 12 часов работы её начинает плющить ошибкой EAccessViolation, поскольку кто-то внутри механизмов TStringGrida начинает читать адреса с младшими адресами (0x00000XXX). При разборе оказалось, что существует некий механизм динамического перераспределения хранимых данных внутри StringGrid"а, основанного на классе TSparsePointersArray. Оно перестаёт правильно выделять указатели в области свободной памяти. Где можно найти информацию по этим механизмам или по классу TSparsePointersArray. DelphiHelp и все информационные ресурсы, которые я просмотрел не имеют вообще даже краткого описания этих вещей. Может кто сталкивался? ... помогите пожалуйста...

← →
Digitman © (2005-05-20 15:45) [1]

> Оно перестаёт правильно

цитируй фрагмент кода, где, по твоему мнению, "оно начинает неправильно" ..

function TSparsePointerArray.GetAt(Index: Integer): Pointer; var byteP: PChar; secIndex: Cardinal; begin { Index into Section Directory using high order part of index. Get pointer to Section. If not null, index into Section using low order part of index. } if Index = cachedIndex then Result := cachedPointer else begin secIndex := Index shr secShift; if secIndex >= slotsInDir then byteP := nil else begin byteP := secDir^[secIndex]; if byteP <> nil then begin Inc(byteP, (Index and indexMask) * SizeOf(Pointer)); end end; if byteP = nil then Result := nil else Result := PPointer(byteP)^; cachedIndex := Index; cachedPointer := Result end end;
Сам по собе этот метод использую не я, а какие-то внутренние механизмы в TStringGrid"e.
Строчка вызывающая EAccessViolation - выделена жирным шрифтом.

TStringGrid+TSparseArray Найти похожие ветки