Ошибка при использовании Create

← →
Radgar (2010-11-25 12:59) [0]

Ошибка: Access violation at address ... in module ... Write of adress ...

Код:

TNumber = class
Top:TShape;
...
procedure NumberCreate(Sender:TObject);
end;

var First:TNumber;

procedure TNumber.NumberCreate(Sender:TObject);
begin
Top:=TShape.Create(Sender as TComponent); //Здесь ошибка
...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
First.NumberCreate(Self);
end;

P.S. Такое пишу впервые. Извините, если бред...

← →
Anatoly Podgoretsky © (2010-11-25 13:05) [1]

> Radgar (25.11.2010 12:59:00) [0]

А зачем ты приводишь к TComponent

← →
Radgar (2010-11-25 13:08) [2]

Без этого Incompatible types: TComponent and TObject

← →
mem (2010-11-25 13:10) [3]

procedure TForm1.FormCreate(Sender: TObject);
begin
First := TNumber.Create;
First.NumberCreate(Self);
end;

← →
Radgar (2010-11-25 13:13) [4]

Спасибо большое!)

← →
mem (2010-11-25 13:15) [5]

а еще:
procedure NumberCreate(Sender:TObject);

заменить на
procedure NumberCreate(Sender:TComponent);

Ошибка при использовании Create Найти похожие ветки