Class - Access violation sorunu

[qamyoncu]

Kod: Tümünü seç

TCell = class(TObject)
    FDown: Integer; 
    FUp: Integer;    
    FRow: Integer;  
    FCol: Integer; 
    ItemCount: Integer;          
    Items: Array of TItem;       
    procedure Create(C, R: Integer);
    procedure AddItem(FItem: TItem);  
    procedure Draw(Parent: TImage);
  published
    property Row: Integer read FRow write FRow;
    property Col: Integer read FCol write FCol;
    property Down: Integer read FDown write FDown;
    property Up: Integer read FUp write FUp;
  end;

procedure TCell.AddItem(FItem: TItem);
begin
SetLength(Items,ItemCount+1);
Items[ItemCount]:=FItem;
Inc(ItemCount);
end;

procedure TCell.Create(C, R: Integer);
begin
Row:=R;
Col:=C;
SetLength(Items,0);
end;

procedure TCell.Draw(Parent: TImage);
var
i: Integer;
begin
for i := 0 to ItemCount-1 do
  begin
    Parent.Canvas.TextOut(FIXED_WIDTH+CELL_WIDTH*Col+1,FIXED_HEIGHT+CELL_HEIGHT*Row+20*i+1,Items[i].Text);
  end;
end;

Kod: Tümünü seç

Cell.Create(1,2);

yazdığımda Create method'unun ilk satırında access violation hatası alıyorum. Acaba nedendir?

[qamyoncu]

Çok ilginç..

Global tanımladığım TCell değişkenlerinde access violation alırken, Button1Click gibi method içi tanımladığım değişkenlerde bu hatayı almıyorum. Global değişkenlere erişimi engelleyen nedir arkadaşlar?

[emin_as]

Cell:=TCell.Create(1,2);
olarak dener misin.

Cell.create ile çagrı yapıyorsun, ama cell henuz yaratılmamış durumda.

[qamyoncu]

This form of method call only allowed for class methods

[sabanakman]

procedure Create... olarak değil, constructor Create ... olarak tanımlayın

Kod: Tümünü seç

constructor Create(C, R: Integer);

Nesnenizi bu metotla oluşturup değişkene atayın.

Kod: Tümünü seç

var Cell:TCell;
begin
  Cell:=TCell.Create(1,2);

gibi..

[qamyoncu]

En acı verici olanı, denemiş ve düzgün çalışmadığına kanaat getirmiş olmama rağmen o(söylediğiniz) kodun çalışması..

Teşekkür ediyorum.