|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Исправление ошибок и создание объекта класса
Помогите пожалуйста, я не понимаю что Делфи хочет от меня, пишет ошибки "[Error] Unit2.pas(60): Declaration of 'FindAcc' differs from previous declaration" и "[Error] Unit2.pas(62): Undeclared identifier: 'a'". Вроде всё правильно объявил если нет то поправьте пожалуйста.
Вторая просьба помогите создать абстрактную процедуру show у класса TGeometryFigure и создать объект класса TMyLine - линию которая должна рисоваться в паинтбоксе по процедуре show который у предка. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) PaintBox1: TPaintBox; Button1: TButton; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //создает форму procedure TForm1.FormCreate(Sender: TObject); begin Width:=960; Height:=600; end; end. Код:
unit Unit2; interface uses Classes, Graphics; type TZakon=class private { Private declarations } v:real; //скорость a:real; //ускорение s:real; //путь public { Public declarations } procedure FindSpeed(t:integer); procedure FindAcc(t:integer); procedure FindPut(t:integer); end; type TMyPoint=class private { Private declarations } px:real; py:real; cvet:TColor; public { Public declarations } constructor Create(Newpx:real;Newpy:real; Newcvet:TColor); end; type TGeometryFigure=class(TMyPoint) private { Private declarations } w:real; h:real; ang:real; public { Public declarations } constructor Create(Newang:real; Newpx:real; Newpy:real; Newcvet:TColor; Neww:real; Newh:real); end; type TMyLine=class(TGeometryFigure) private { Private declarations } ll:integer; public { Public declarations } constructor Create(Newang:real; Newpx:real;Newpy:real; Newcvet:TColor; Neww:real; Newh:real; Newll:integer); end; implementation {TZakon1} procedure TZakon.FindAcc(t:real); begin a:=sin(t); end; procedure TZakon.FindPut(t:real); begin s:=t-sin(t); end; procedure TZakon.FindSpeed(t:real); begin v:=-cos(t)+1; end; { TMyPoint } constructor TMyPoint.Create(Newpx:real;Newpy:real; Newcvet:TColor); begin px:=Newpx; py:=Newpy; cvet:=Newcvet; end; { TGeometryFigure } constructor TGeometryFigure.Create(Newang:real; Newpx:real;Newpy:real; Newcvet:TColor; Neww:real; Newh:real); begin inherited w:=Neww; h:=Newh; ang:=Newang; end; { TMyLine } constructor TMyLine.Create(Newang:real; Newpx:real;Newpy:real; Newcvet:TColor; Neww:real; Newh:real; Newll:integer); begin inherited ll:=Newll; end; end. |
#2
|
||||
|
||||
Ну вы объявили в TZakon процедуры с параметром integer:
Код:
procedure FindSpeed(t:integer); procedure FindAcc(t:integer); procedure FindPut(t:integer); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 21.09.2015 в 08:13. |