Всем привет.
Использую Deplhi 5.5. вылетает ошибка AccessViolation.
В этой процедуре создается матрица 3 на 3.
function GetXMatrixGeo():TMatrix;
var
TempMatrix,A:TMatrix;
i,j:integer;
Begin
TempMatrix:=A.Create(3,3); Здесь происходит вызов функции создания матрицы
End;
Функция Create
type
TMatrixData = array of array of Extended;
TMatrix = class
protected
FData: TMatrixData; // сама матрица
.....
.....
.....
constructor TMatrix.Create(ARows, ACols: Word);
var
i, j: Word;
begin
if ARows = 0 then
Error(SRowIndexError, ARows);
if ACols = 0 then
Error(SRowIndexError, ACols);
SetLength(FData, ARows, ACols); Падение происходит вот здесь, на выделении памяти
for i := 0 to RowCount - 1 do
for j := 0 to ColCount - 1 do
FData[i, j] := 0;
end;
При вызове SetLength просходит падение и вылетает Access Violation at address 00404C44 in module. Read of address 00000004. Подскажите, в чем проблема?