Скачать: CL | DM;

Ошибка при использовании 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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c