Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.02.13;
Скачать: 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 вся ветка

Текущий архив: 2011.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
15-1288635282
boriskb
2010-11-01 21:14
2011.02.13
Microsoft открывает центр разработок в Сколково


15-1288781210
Sergey Masloff
2010-11-03 13:46
2011.02.13
А так хорошо начиналось... только за искусство заговорили ;-)


2-1290349350
kta52
2010-11-21 17:22
2011.02.13
Десятичный разделитель


2-1290596992
FIL-23
2010-11-24 14:09
2011.02.13
firebird и delfi


15-1289165395
Юрий
2010-11-08 00:29
2011.02.13
С днем рождения ! 8 ноября 2010 понедельник