[bysergey]

Всем привет!
Народ, есть проблема.
Почему-то в Delphi 2007 выскакивает ошибка Access Violation на SetLength();
Метод в procedure SystemODU.adams; первая строчка.

Код:

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

unit AdamsUnit;   interface type SystemODU = class protected   Y :array of array of real;   X: array of Real;   h, e, a, b:real;   u:integer; public   procedure adams;   procedure setH(new_h:real);   procedure setA(new_a:real);   procedure setB(new_b:real); end; implementation   procedure SystemODU.setH; begin   h := new_h; end;   procedure SystemODU.setA; begin   A := new_a; end;   procedure SystemODU.setB; begin   B := new_b; end;   procedure SystemODU.adams; var  i: integer; begin   SetLength(y, 3, 30);//!!!ВОТ ТУТ И ВСЕ ЛЕТИТ   SetLength(x,30);   SetLength();   h:=0.05;   e:= 0.01;   Y[0,1]:=1;   Y[1,1]:=1;   Y[2,1]:=1;   repeat     u:=1;     for i:=1 to 2 do begin       Y[0, i+1]:=Y[0, i]+h*(Y[0, i]+h/2*(3*Y[1, i]-2*Y[2, i]));       Y[1, i+1]:=Y[1, i]+h*(Y[1, i]+h/2*(-Y[2, i]-3*Y[0, i]));       Y[2, i+1]:=Y[2, i]+h*(Y[2, i]+h/2*(2*Y[0, i]-Y[1, i]));     end;     h:=h/2;     for i:=1 to 2 do begin       Y[0, i+1]:=Y[0, i]+h*(Y[0, i]+h/2*(3*Y[1, i]-2*Y[2, i]));       Y[1, i+1]:=Y[1, i]+h*(Y[1, i]+h/2*(-Y[2, i]-3*Y[0, i]));       Y[2, i+1]:=Y[2, i]+h*(Y[2, i]+h/2*(2*Y[0, i]-Y[1, i]));     end;   until ((abs(Y[0,2])-Y[0, 3])<=(3*e)) and ((abs(Y[1,2])-Y[1,3])<=(3*e))                                        and ((abs(Y[2,2])-Y[2,3])<=(3*e));     h:=h*2;   for i:=2 to (round((b-a)/h)+1) do begin     Y[0, i+1]:=Y[0, i]+h/2*(3*(3*Y[1, i]-2*Y[2, i])-(3*Y[1, i-1]-2*Y[2, i-1]));     Y[1, i+1]:=Y[0, i]+h/2*(3*(-Y[2, i]-3*Y[0, i])-(-Y[2,i-1]-3*Y[0, i-1]));     Y[2, i+1]:=Y[0, i]+h/2*(3*(2*Y[0, i]-Y[1, i])-(2*Y[0,i-1]-Y[1, i-1]));     X[i]:=a+h*(i-1);   end;     end;   end.

Метод вызывается при старте программы в onActivate. Просто это по сути получается у меня первая строчка, которая должна работать и сразу ошибка.
Если ее закоментить, то все работает норм(в смысле без использования переменной Y, но мне ее нужно использовать).



Помогите, Пожалуйста!

[NIch]

Ты пытаешься установить размер классу, а нужно объекту класса...
Т.е. ты сначала должен объявить объект типа SystemODU...
Обычно класс (тип, запись) называют

Код:

1	TSystemODU

, а объект

Код:

1	SystemODU: TSystemODU

Потом ты должен объект создать...И только потом можно с ним работать...

[bysergey]

Спасибо большое, смысл ошибки я понял, сейчас попытаюсь исправить!