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

[Utkin]

Он хочет свой собственный TEdit, а не чтобы им владела форма. Разница в том, что если он захочет использовать свой класс везде где только можно, то такой фокус прокатит только на формах с Edit'ами.

ЗЫ. Но естественно, пусть ТС пишет так как считает нужным, я только предложил вариант и объяснил почему мне так нравиться больше...

[evg_m]

хотим использовать form1.Edit1 смотри строку

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

и в него вывести целое

[Utkin]

А уж поля класса делать public это вовсе не по фень-шую, доступ только через методы и свойства (опять же ИМХО).

[Дима я]

На практике я нихрена не понял..Еше больше запутался.

op=class
public
  Edit1: TEdit;
  Constructor Create(Sender: TObject;o:integer);
end;

constructor op.Create(Sender: TObject;o: integer);
begin
   Inherited Create;
     Edit1:=TEdit.Create(Sender);
     edit1.Text:=IntToStr(o);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
l:op;
begin
l.Сreate(Random(1000), Self);
end;

[Error] Unit1.pas(43): Incompatible types: 'TComponent' and 'TObject'
[Error] Unit1.pas(37): Illegal character in input file: 'С' ($D1)

Я в НЕпонятках

evg_m говорил что первую ошибку легко решить переобозначением,TObject на TComponent
Как это делаеться?

насчет второй ошибки вообше мыслей ytn

[evg_m]

evg_m говорил что первую ошибку легко решить переобозначением,TObject на TComponent

Это было замечание для Utkin на ВОЗМОЖНЫЕ ошибки из-за нарушения принципа ООП мы в ответе за то что создали.

мой пример смотрел?

[Error] Unit1.pas(43): Incompatible types: 'TComponent' and 'TObject'

// constructor op.Create(Sender:TObject; o: integer);
constructor op.Create(Sender: TComponent; o: integer);
begin
   Inherited Create;
     Edit1:=TEdit.Create(Sender);

[Дима я]

Пока понятно работаетСпс