[sidoro89]

Есть код.
в отдельном модуле:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

type   TMatrixData = array of array of Extended;     TMatrix = class   protected     FData: TMatrixData;     FOrigin: Integer; ...   procedure TForm1.btn1Click(Sender: TObject); var   A, B:TMatrix;   C,D:TMatrixData;   s:extended;   i,j: Integer; begin   SetLength(C,3,3) ;   SetLength(D,3,3) ;   for i:=0 to 2 do   for j:=0 to 2 do   begin     C[i,j]:=i+j+2;     D[i,j]:=i*j-3;   end;   A:=TMatrix.Create(C);   B:=TMatrix.Create(D);   S:=C[0,0];   A.Free;   B.Free; end;

Админ: Пользуемся тегами для оформления кода.

По логике вещей в переменной S должно быть значение матрицы С[0,0], а там 1е+300, как вытащить значение из массива? Что происходит?

[Pyro]

давай весь код

[sidoro89]

На форум не влез, меньше 300 кб не сделать было. Залил на Депозит:
http://depositfiles.com/files/32huqhhdj

Тут чуть другая модификация, но проблема такая же.
Запустить MKE.dpr
Unit1. Строчки 1143, 1144 с параметром. на 1146 Остановку сделать, чтобы проследить.
Пользоваться:
1) геометрия - Ок
2) Расчет - проверка исходных данных

[Pyro]

походу это было потому что компилятор соптимизировал эту переменную как нигде не используемую

PHP код:

KOOR_ELM:=TMatrix.Create(KOOR_EL);

S_EL:=KOOR_ELM.Det;
showmessage(floattostr(S_EL));
S_EL:=KOOR_EL[1,2];
showmessage(floattostr(S_EL));

KOOR_ELM.Free; 


[angvelem]

Ну так правильно, если в переменную записать данные, а потом больше эту переменную не использовать, то Дельфи просто "проигнорирует" её. При этом будет выдано соответствующее сообщение, на которое ТС не обратил внимания.

[sidoro89]

Всем огромное спасибо. Я уже 2 дня мучаюсь понять не могу, что происходило, а оказывается вот оно что. Спасибо, что объяснили про компилятор делфи. Действительно дальше стал писать код и все заработало. Теперь надеюсь до конца праздников закончу .

Тему можно закрывать. Еще раз спасибо .