Главная страница
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-1288970175
AlexDn_
2010-11-05 18:16
2011.02.13
Фильм подскажите плиз


4-1245251049
SpellCaster
2009-06-17 19:04
2011.02.13
Перехват вывода консольного приложения


2-1290612582
Денис2
2010-11-24 18:29
2011.02.13
Серийный номер монитора


2-1290341391
forNeXt-113
2010-11-21 15:09
2011.02.13
Process Explorer. Close Handle.


15-1288338243
Vlad_MK
2010-10-29 11:44
2011.02.13
Посоветуйте генератор отчетов