| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Error [D7, WinXP]

SDV ©   (2004-11-30 00:05:00) 

Подскажите, пожалуйста,
из-за чего и как это исправить
происходит ошибка "Declaration of 'AfterPaint' differs from previous declaration"
при попытке установить SynSpellCheck.pas?

В справке Delphi пишут:

This error message occurs when the declaration of a procedure, function, method, constructor or destructor differs from its previous (forward) declaration.

This error message also occurs when you try to override a virtual method, but the overriding method has a different parameter list, calling convention etc.

program Produce;

type
 MyClass = class
   procedure Proc(Inx: Integer);
   function Func: Integer;
   procedure Load(const Name: string);
   procedure Perform(Flag: Boolean);
   constructor Create;
   destructor Destroy(Msg: string); override;      (*<-- Error message here*)
   class function NewInstance: MyClass; override;  (*<-- Error message here*)
 end;

procedure MyClass.Proc(Index: Integer);             (*<-- Error message here*)
begin
end;

function MyClass.Func: Longint;                     (*<-- Error message here*)
begin
end;

procedure MyClass.Load(Name: string);               (*<-- Error message here*)
begin
end;

procedure MyClass.Perform(Flag: Boolean); cdecl;    (*<-- Error message here*)
begin
end;

procedure MyClass.Create;                           (*<-- Error message here*)
begin
end;

function MyClass.NewInstance: MyClass;              (*<-- Error message here*)
begin
end;

begin
end.

As you can see, there are a number of reasons for this error message to be issued.

program Solve;

type
 MyClass = class
   procedure Proc(Inx: Integer);
   function Func: Integer;
   procedure Load(const Name: string);
   procedure Perform(Flag: Boolean);
   constructor Create;
   destructor Destroy; override;                   (*No parameters*)
   class function NewInstance: TObject; override;  (*Result type   *)
 end;

procedure MyClass.Proc(Inx: Integer);               (*Parameter name  *)
begin
end;

function MyClass.Func: Integer;                     (*Result type  *)
begin
end;

procedure MyClass.Load(const Name: string);         (*Parameter kind  *)
begin
end;

procedure MyClass.Perform(Flag: Boolean);           (*Calling convention*)
begin
end;

constructor MyClass.Create;                         (*constructor*)
begin
end;

class function MyClass.NewInstance: TObject;        (*class function*)
begin
end;

begin
end.

You need to carefully compare the 'previous declaration' with the one that causes the error to determine what is different between the two.

Что это значит и как это исправить?

---

Amoeba   (2004-11-30 11:53:00) [1]

Позволю себе настоятельно рекомендовать автору вопроса словать общепринятым стандартам и имена классов начитать с буквы "T":  т.е. не
MyClass = class
а
TMyClass = class

Это не только улучшает читаемость кода, но и позволяет избежать неприятных ляпов при кодировании.

---

Defunct   (2004-11-30 07:39:00) [2]

> Что это значит и как это исправить?

это значит, что процедуры и функции объявленные в классе, должны быть точно также объявлены и в реализации.

проверь если ты объявил в классе метод как procedure, чтобы и в реаизации у тебя было тоже procedure(а не function).

---

ЮЮ   (2004-11-30 04:02:00) [3]

Что пишут в справке, не стоит публмковать в форуме.

У тебя проблемы перевода?
AfterPaint по-разному обявлен в interface и implementaition секциях модуля (или вообще отсутствует в implementaition)

---

GuAV   (2004-11-30 00:07:00) [4]

Ты не тот код привёл.

---

Наверх