Пожалуйста объясните, что не так??

@sidoro89 · Регистрация: 06.01.2012

Есть код.

Delphi

procedure TMain.N19Click(Sender: TObject);
  var
i,j: integer;
B_EL,KOOR_EL,Matrix_A: TMatrixData;
KOOR_ELM: TMatrix;
S_EL:real;
begin
SetLength(KOOR_EL,3,3);
for i:=1 to N_ELEMENT do
begin
 
  KOOR_EL[2,0]:=1;
  KOOR_EL[2,1]:=1;
  KOOR_EL[2,2]:=1;
  KOOR_EL[0,0]:=X[ELEM[i].ii];
  KOOR_EL[0,1]:=X[ELEM[i].jj];
  KOOR_EL[0,2]:=X[ELEM[i].kk];
  KOOR_EL[1,0]:=Y[ELEM[i].ii];
  KOOR_EL[1,1]:=Y[ELEM[i].jj];
  KOOR_EL[1,2]:=Y[ELEM[i].kk];
  KOOR_ELM:=TMatrix.Create(KOOR_EL);
 
  S_EL:=KOOR_ELM.Det;
  S_EL:=KOOR_EL[1,2];
 
  KOOR_ELM.Free;
end;
end;

Проблема в передачи значений из массива (KOOR_EL) определенного как TMatrix (он же array of array) в переменные (в данном случае S_EL), Если её задать как real, то ей будет присвоено значение 2.64е-308, в случает extendet, то получим е+3104.
*.det - функция, которая выдает значения Extended, Пошагово проверено, что она все считает и в конце получаем нужное значение, но аналогично оно не передается в переменную S_EL.

TMatrix и *.det Находятся в отдельном модуле, может ли это как то влиять?
Как вытащить значения из массива?

@Alex_pac · 06.01.2012, 16:44

описание классов/типов TMatrixData, TMatrix в студию!

@sidoro89 · 07.01.2012, 00:56 **[ТС]**

Спасибо за оперативность. Выкладываю:

Pascal

type
  TMatrixData = array of array of Extended;
 
  TMatrix = class
  protected
    FData: TMatrixData; // матрица
    FOrigin: Integer; // начальный индекс

Добавлено через 8 часов 8 минут
Тему можно закрывать. Проблема была в компиляторе, который игнорил неиспользуемую переменную. Всем спасибо.

@Alex_pac 1299 / 705 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	06.01.2012, 16:44	2
	описание классов/типов TMatrixData, TMatrix в студию! 1

Опции темы