VPF::Unsatisfied forward or external declaration - Форум программистов

marsh123

Дата 22.2.2009, 00:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 22.6.2008

Репутация: нет
Всего: нет

Код программы, она должна рисовать точку по нажатию кнопки.

Код


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'

Не понимаю, в чем ошибка? Помогите.

Данкинг

Дата 22.2.2009, 01:01 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

А где описание процедуры Draw ?

--------------------

There's nothing left but silent epitaphs.

marsh123

Дата 22.2.2009, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 22.6.2008

Репутация: нет
Всего: нет

А как ее правильно описать, чтобы появлялась точка? Я думал это стандартная процедура.

Данкинг

Дата 22.2.2009, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(marsh123 @ 22.2.2009, 01:03

)

А как ее правильно описать, чтобы появлялась точка?

Откуда я знаю - твоя же программа. smile

--------------------

There's nothing left but silent epitaphs.

marsh123

Дата 22.2.2009, 01:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 22.6.2008

Репутация: нет
Всего: нет

Я понимаю, что программа моя. но я только начал учить дельфи, может кто-то подскажет как нарисовать то, что указано в конструкторе, иными словами, что должна содержать процедура дрэу(Draw)

Добавлено через 3 минуты и 16 секунд
Сморю в инете ее описывают так: PutPixel(X,Y); у меня в дельфи и путпикселя нету .. :(

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »