Код программы, она должна рисовать точку по нажатию кнопки.
| Код |
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyPoint = class
protected
pointx,pointy:integer;
public
constructor Create(x,y:Integer); virtual;
procedure Draw; virtual;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
constructor Tmypoint.Create(x,y:Integer);
begin
Pointx:=x;
Pointy:=y;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TMypoint.Create(150,150);
end;
end.
|
На строке
| Код |
procedure Draw; virtual;
|
Выдает ошибку:
[Error] Unit1.pas(23): Unsatisfied forward or external declaration: 'TMyPoint.Draw'
Не понимаю, в чем ошибка? Помогите. |
)