[Delphi]: Создание нового класса с наследованием

[Kolhan]

Здравствуйте, нужна помощь.

1 Нужно создать новый класс TCar наследуемый от TShape. У класса TCar есть дополнительные свойства полоса, скорость, действие, направление, но при этом нужно иметь доступ ещё и к основным свойствам TShape(в частности к координатам размещения TShape).

2 Также нужно периписать свойство Create. Нужно чтобы при Create создавался сам Shape на форме и ещё заполнялись дополнительные свойсва класса TCar(полоса, скорость, действие, направление). Координаты TShape заранее определены и записаны в Case конструктора Create и от того какое число будет указано при создании (например Create(1)) выбираются определнные координаты.

[Stilet]

Типа такого, шаблон:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TCar=class(TShape)
  Public
    Skorost,Polosa:Integer;
    Constructor Create(i:integer);
  end;
  TForm1 = class(TForm)
    Shape1: TShape;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var t:TCar;
  Form1: TForm1;

implementation

{$R *.dfm}


{ TCar }

constructor TCar.Create;
begin
 Skorost:=1;Polosa:=3;
 if i=.......
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[VVM]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TCar = class(TShape)
  private
    fStripe: integer;
    fSpeed: integer;
    fAction: integer;
    fDirection: integer;
  public
    property Stripe: integer read fStripe write fStripe;
    property Speed: integer read fSpeed write fSpeed;
    property Action: integer read fAction write fAction;
    property Direction: integer read fDirection write fDirection;
    constructor CreateCar(AOwner: TComponent; const Param, iStripe, iSpeed, iAction, iDirection: integer);
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    Car: TCar;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TCar }

constructor TCar.CreateCar(AOwner: TComponent; const Param, iStripe, iSpeed, iAction, iDirection: integer);
begin
  inherited Create(AOwner);
  Parent := Form1;
  Visible := true;
  Name := 'Car1';
  Stripe := iStripe;
  Speed := iSpeed;
  Action := iAction;
  Direction := iDirection;
  //далее можно реализовать это: " Координаты TShape заранее определены и записаны в Case конструктора Create и от того какое число будет указано при создании (например Create(1)) выбираются определнные координаты.", используя Param.
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Car := TCar.CreateCar(Self, 1, 12, 34, 54, 2);
end;

end.

[Kolhan]

VVM всё вроде хорошо только нужно будет создавать этот обьект много раз, так что имя нужно порядковое. Я понимаю что нужно счётчик, но как его пред определить не при создании формы не пойму.

[Stilet]

Я понимаю что нужно счётчик, но как его пред определить не при создании формы не пойму.

Опиши динамический массив:

var Cars:array of TCar
.........
// И создавай так:
SetLength(cars,length(cars)+1);
cars[high(cars)]:=TCar.CreateCar(Self, 1, 12, 34, 54, 2);

А далее обращайся к нужному обьекту как к массиву

[Kolhan]

Stilet спасибо а как порядковое имя обьекту задавать
ведь в описаном пирмере там 'Car1'. Я думаю что должно быть что то типа
i:=i+1;
Name :='Car'+inttostr(i);
но так как i не определна он может выдаать число в самом начале типа 14758 что разумеется приведёт к ошибке.

Или порядковые намера обьектам присваиваются как то по другому

[VVM]

Или порядковые намера обьектам присваиваются как то по другому

Можно использовать индекс массива:

procedure TForm1.Button1Click(Sender: TObject);
var 
  Cars: array of TCar;
begin
  SetLength(cars, length(cars) + 1);
  cars[high(cars)]:=TCar.CreateCar(Self, 1, 12, 34, 54, 2);
  cars[high(cars)].Name := 'Car' + IntToStr(high(cars));
end;

Тогда из конструктора можно убрать строку с Name:

constructor TCar.CreateCar(AOwner: TComponent; const Param, iStripe, iSpeed, iAction, iDirection: integer);
begin
  inherited Create(AOwner);
  Parent := Form1;
  Visible := true;
  //отсюда
  Stripe := iStripe;
  Speed := iSpeed;
  Action := iAction;
  Direction := iDirection;  
end;