ООП.В чем ошибка

[Дима я]

Чето не доходит до меня как правильно в классах обращаться к компонентам..
Вот содаю класс

op=class
public
Edit1: TEdit;                              ***описываю Edit
  Constructor Create(o:integer);   
end;


constructor op.Create(o: integer);
begin
edit1.Text:=IntToStr(o);                ***Тело конструктора
end;


procedure TForm1.Button1Click(Sender: TObject);
var
l:op;
begin
l.Edit1:=Edit1;
l.Сreate(Random(1000));                     ***Вызываю конструктор в кнопке
end;

Все ли я правильно сделал?
Работает но когда закрываешь программу вылазеит ошибка длинная,что то в модуле Project

[Человек_Борща]

неплохо бы написать что за ошбка, рас уж не смог перевести..

[Дима я]

Exception EAccessViolation in module Project2.exe at 000135AA.
Access violation at address 004135AA in module 'Project2.exe'.Read of address 00000008.

[Utkin]

Все правильно. Edit это класс и следовательно тоже нуждается в создании.

constructor op.Create(Sender: TObject; o: integer);
begin
     Inherited Create;
     Edit1:=TEdit.Create(Sender);
     edit1.Text:=IntToStr(o);                ***Тело конструктора
end;

Соответственно и в интерфейсной части поправьте. Sender - где рисоваться объекту.

procedure TForm1.Button1Click(Sender: TObject);
var
l:op;
begin
l.Сreate(Random(1000), Self);                     ***Вызываю конструктор в кнопке
end;

Self - я . То есть Form1 требует, чтобы Edit рисовался на Form1.

[evg_m]

вот то что должно было быть

//Top=class // правило хорошего тона названия типов начинать с 
ЗАГЛАВНОЙ буквы T
(TOP не очень хорошее название для класса путается с form.top )
// еще правило не использовать совпадающие имена 
TopMy=class
private
  fEditOP: TEdit; //еще одно правило имена полей начинать с  прописной f
public
  Constructor Create(ed: TEdit);
  propcedure SetInteger(o:integer);   
end;


constructor Topmy.Create(ed: TEdit);
begin
  fEditOP:=ed;
end;

procedure Topmy.SetInteger(o: integer);
begin
  feditOP.text:=inttostr(o);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
l:TopMy;
begin
  l:=TopMy.Create(edit1); /создаю объект типа OP для дальнейшего использования запоминаю его в переменной l
// fEditOP:=ed; в конструкторе запоминаю с каким компонентом будет работать наш экземпляр      
 l.setInteger(Random(1000)); 
//  feditOP.text:=inttostr(o); в указанный компонент вывожу заданное значение
  l.Free; //если объект больше не нужен то освобождаем память
end;

[Дима я]

А что делает
Inherited Create; ??

[Дима я]

Спасибо))))))))))

[Utkin]

Сообщение от Дима я

А что делает
Inherited Create; ??

Создает предка для твоего класса. Обычно используется если ты наследуешься не от TObject. А скажем от того же TEdit. Он тоже имеет свои поля и ему их нужно инициализировать. Этой командой ты даешь ему такую возможность. Именно поэтому она обычно самая первая в конструкторе. Ну а далее, когда твой предок создан, можешь уже инициализировать свои поля.

ЗЫ. Программирование по посту #5 противопоказано - твой класс не сможет жить без данной формы, это равносильно как прописывать все действия в самой форме, не используя класс. Правила хорошего тона говорят о том, что класс должен быть максимально автономен от остальных элементов программы. В твоем случае вполне возможно создать такой TopMy, который бы работал с любой формой. И даже не с формой, а с любым объектом, имеющим клиентскую область (где могут рисоваться компоненты).

[Дима я]

Понял спасибо

[evg_m]

ЗЫ. Программирование по посту #5 противопоказано - твой класс не сможет жить без данной формы

constructor op.Create(Sender: TObject; o: integer);
begin
Inherited Create;
Edit1:=TEdit.Create(Sender);
edit1.Text:=IntToStr(o); ***Тело конструктора
end;

аналогично храним ссылку на внешний компонент TEdit.Create(Sender)
настолько же опасно как и

constructor Topmy.Create(ed: TEdit);
begin
  fEditOP:=ed;
end;

используется ОДИНАКОВО ВНЕШНИЙ объект edit Edit.owner=Form1
в любом случае легко решается изменением базового класса Tobject на Tcomponnt