Вопрос про ООП

[Unconnected]

Привет всем.

Пишу программу, в отдельном модуле описал свой класс. Код такой:

unit Unit2;

interface
uses windows,sysutils,extctrls,unit1;

var names:array[1..kolel] of string=('lineroad.jpg');

type line_road = class
  private
    x,y:byte;
  public
    var img:TImage;
    constructor create;
    Procedure move(x,y:byte);
    Procedure draw(var img:TImage;name:string);
end;

implementation

Constructor line_road.create;
begin
  img:=TImage.Create(nil); //<=======
end;

Procedure line_road.move(x,y:byte);
begin
  img.Left:=x;
  img.Top:=y;
end;

Procedure line_road.draw(var img:TImage;name:string);
begin
  img.Picture.LoadFromFile(folder+'images\'+name);
end;

end.

В главном модуле в обработчике кнопки код такой:

var i,y:integer;
begin
  folder:=extractfilepath(application.exename);
  y:=3;
  for i:=1 to kolel do begin
    constr[i].Create;
    constr[i].move(sscrollbox1.Left+3,sscrollbox1.Top+3+y);
    constr[i].draw(constr[i].img,names[i]);
    inc(y,constr[i].img.Height+4);
  end;

Вылетает Acsess Violation на указанной строке. Причём, если сделать переменную img локальной для конструктора, то всё нормально.. Но мне надо сделать её именно переменной класса.

[Utkin]

1. img должно быть в секции private или protected и без var. Просто правила хорошего тона.
2. У TImage не должен быть родителем никто, иначе у него в паспорте напротив отчества прочерк стоять будет. А это не по фэнь-шую. Грубо говоря, он должен рисовать на родителе, а если родителя нет, то и рисоваться ему не на чем (и не перед кем).
Вот он и ругается.

[Stilet]

    constr[i]:= line_road.Create;

Именно так и не иначе создаются обьекты.

[Unconnected]

1. img должно быть в секции private или protected и без var.

Да-да, я слышал про инкапсуляцию... Но так не получилось сделать, потому что в строке constr[i].draw(constr[i].img,names[i]); обращаюсь к img, поэтому она должна быть public. Возможно, есть решение, только опыта с ООП у меня нет, не знаю.

Именно так и не иначе создаются обьекты.

Блин, точно... А в FPC, кажется, так, как я написал.

Спасибо за ответы.

[Unconnected]

Ну, сделал я указание родителя - img:=TImage.Create(sscrollbox1); - сделал правильное создание, теперь ошибок не вылетает, но и картинка не показывается, в чём проблема?

procedure TForm1.FormShow(Sender: TObject);
var i,y:integer;
begin
  y:=3;
  for i:=1 to kolel do begin
    constr[i]:=line_road.create;
    constr[i].move(3,3+y);
    constr[i].draw(constr[i].img,names[i]);
    inc(y,constr[i].img.Height+4);
  end;
end;

unit Unit2;

interface
uses windows,sysutils,extctrls,unit1,forms,classes;

var names:array[1..kolel] of string=('lineroad.jpg');

type line_road = class(TForm1)
  private
    x,y:byte;
  public
    img:TImage;
    constructor create;
    Procedure move(x,y:byte);
    Procedure draw(img:TImage;name:string);
end;

implementation

constructor line_road.create;
begin
  img:=TImage.Create(sscrollbox1);
end;

Procedure line_road.move(x,y:byte);
begin
  img.Left:=x;
  img.Top:=y;
end;

Procedure line_road.draw(img:TImage;name:string);
begin
  img.Picture.LoadFromFile(folder+'Images\'+name);
end;

end.

[maxionans]

Как минимум имеются две ошибки:

1. После создания TImage нужно указать его ширину и высоту, а так же не забыть сделать его видимым.

2. В line_road.draw убрать из параметров Img : TImage.

[Unconnected]

Ага, поправил, только ширину и высоту указывать не обязательно - TImage сам адаптируется под загруженное в него изображение. Получилось вывести на форму:

constructor line_road.create;
begin
  img:=TImage.Create(self);
  img.parent:=form1;
  img.visible:=true;
  img.Show;
end;

Но, что интересно, если написать просто img:=TImage.Create(form1);, то ничего не выводится! Всем спасибо, +++.

Ещё вопрос: вот допустим хочу я сделать конструктор с входным параметром, чтобы img создавалось на компоненте, который был передан в этом параметре.

constructor line_road.create(sender:TObject);
begin
  img:=TImage.Create(self);
  img.parent:=(sender as TComponent);
  img.visible:=true;
  img.Show;
end;

Мне кажется, как-то так надо? Но это не компилируется.

[evg_m]

//// TImage.Create(AOwner: TComponent);
 img:=TImage.Create(self);

не работает так как твой класс(self) не является потомком(наследником) класса Tcomponent
можно так

 img:=TImage.Create(sender);

в этом случае при удалении объекта sender будет удален и твой Image
или

img:=TImage.Create(nil);

а здесь удаление img полностью зависит от тебя (твоего класса)

[Unconnected]

А можно подробней? Не совсем понял:

можно так
Код:


img:=TImage.Create(sender);

А Sender какого типа здесь будет? И как передавать, constr[i]:=line_road.create(scrollbox1); ?

[Utkin]

Сообщение от evg_m

[CODE]
или

img:=TImage.Create(nil);

а здесь удаление img полностью зависит от тебя (твоего класса)

Это очень плохая идея. В лучшем случае это будет AV. В худшем трудноотлавливаемая утечка памяти. Тем более, что ТС работает с массивом объектов.