Проблемма при создании класса

[Warnes]

Доброго времени суток!

Пишу другу класса на Delphi, и вылезла ошибка Access Violation at addres... одним словом с памятью проблемка. Обшарил все форумы и сайты но никто мне подсказать не смог.
Эх... всетаки ООП на php это детская шалость по сравнению с делфями...
Вот кусок кода:

type
  TMatrixSod= array of array of real;
  TVectorSod= array of real;
  TMatrixs = class(TObject)

  private
    FMSod: TMatrixSod;
    FVSod: TVectorSod;
    FRazm: Integer;
  public

    constructor Create (Count: integer; StringGrid: TStringGrid);
    procedure Vector(StringGrid: TStringGrid);
    procedure GetVector(StringGrid: TStringGrid);
    destructor Destroy; override;

    property Razm: integer read FRazm write FRazm ;

  end;

implementation

constructor TMatrixs.Create(Count: integer; StringGrid: TStringGrid);
  var i,j: word;
  begin
    FRazm:=0;                                // ОШИБКА
     SetLength(FMSod, Count, Count);  //и тут
     for i:=0 to Count-1 do
       for j:=0 to Count-1 do
         FMSod[i,j]:=StrToFloat(StringGrid.Cells[i,j]);

  end;

Заранее спасибо!

[Пепел Феникса]

constructor TMatrixs.Create(Count: integer; StringGrid: TStringGrid);
  var i,j: word;
  begin
   inherited Create;
    FRazm:=0;                              
     SetLength(FMSod, Count, Count);
     for i:=0 to Count-1 do
       for j:=0 to Count-1 do
         FMSod[i,j]:=StrToFloat(StringGrid.Cells[i,j]);

  end;

а кто будет стандартный конструктор вызывать?
(он служить для выделения памяти)

[Warnes]

Знаем...Делали...Результат нулевой.

[spamer]

Та тут проблема не токо в этом. Чето вы сильно усложнили себе задачу с созданием массива.

//--------------------------Поля---------------------------------
    fItems:array of Integer;
    fCount:integer;

//-------------------Чтение и запись свойст------------------------------
    procedure SetItem(Index:integer; item: integer);
    function  GetItem(index: Integer): integer;

    procedure SetCount(Temp: integer);
    function  GetCount: Integer;

public
    procedure Init;

    constructor Create;           
    destructor Destroy; override;

//----------------------------Свойства--------------------
    property Items[index: integer]: integer read GetItem write SetItem; default;

    property ItemCount: Integer read GetCount write SetCount;

//-----------------Конструктор---------------------------
constructor TSortArray.Create;
  begin
    inherited Create;
    fCount:=10;
    SetLength(fItems,fCount);
    Init;
  end;
//Метод инициализации массива
procedure TSortArray.Init;
var
  i:integer;
begin
  for i:=0 to fCount-1 do
    fItems[i]:=Random(100);
end;

//Установка размера массива и его заполнение (методы свойст)
function TSortArray.GetCount:integer;
begin
  result:=fCount;
end;
procedure TSortArray.SetCount(Temp:integer);
begin
if(fCount<>Temp) then
  fCount:=Temp;
End;


function TSortArray.GetItem(index:integer):integer;
begin
  result:=fItems[index];
end;
procedure TSortArray.SetItem(Index:integer; item: integer);
begin
if(fItems[index]<>item) then
  begin
    fItems[index]:=Item;
    SetLength(fItems,fCount);
  end;
end;

Если че не понятно, пиши - расскажу.

З.Ы. Пример для одномерного массива.

[Warnes]

Увы...

Вот облегчил класс до минимума (для примера)
Получилось:

unit Matrix;
interface
uses
 SysUtils,Classes;

type
  TMatrixs = class(TObject)

  private
    FRazm: Integer;
  public
    constructor Create ();
    procedure SetRazm(Temp:integer);
    function  GetRazm: Integer;
    property ItemRazm:integer read GetRazm write SetRazm;
  end;

implementation

constructor TMatrixs.Create();
  var i,j: word;
  begin
   inherited Create;
    FRazm:=0;  // упорно вылетает ошибка
  end;

function TMatrixs.GetRazm:integer;
begin
  result:=frazm;
end;

procedure TMatrixs.SetRazm(Temp:integer);
begin
  frazm:=Temp;
End;

end.

[spamer]

Этот ваш минимальный класс у меня работает.

[Warnes]

Такс...попахивает тухлым дебагом....

[Warnes]

Есть еще у кого-нибудь мысли по поводу этого?