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

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

Как перекрыть абстрактную функцию с другими параметрами?


ГостьНомер ©   (2006-06-20 14:22:00) 

Я хочу запускать свою функцию в потоке TMyThread. У функции есть параметры.
Как мне объявить метод Execute моего класса так, чтобы он принимал параметры и мог передать их функции?

Объявляю так:
TMyThread = class (TThread)
  procedure execute (a:real); override;
 end;

И реализация:
procedure TMyThread.execute (a:real);
begin
 MyFunction(a);
end;

Выдает ошибку Declaration of 'execute' differs from previous declaration,
что вполне ожидаемо. Без override в runtime получаем Abstract Error.
Пробовал думать. Пробовал добавлять reintroduce, virtual, overload в разных комбинациях.
Не получилось. Как передать параметры, не используя глобальных переменных?


Сергей М.   (2006-06-22 13:54:00) [1]


> абстрактную функцию


Разницу между функциональным и процедурным методом объектаощущаешь ?


ГостьНомер   (2006-06-22 13:14:00) [2]

2icWasya Огромное спасибо. Действительно, мы создаем поток create(false), и он сам вызывает execute. Все заработало.


icWasya   (2006-06-21 09:42:00) [3]

После таких [3] ответов появится серия вопросов
1) почему у меня поток не запускается
2)почему у меня Access violation
3) ещё что нибудь

Execute у TThread Вы никогда явно не вызываете!
Скорее всего Вам нужно сделать так

Интерфейс:
TMyThread = class (TThread)
 private
   Fa : real;
 public
  procedure execute ; override;
  constructor Create(a:real);
end;

И реализация:
constructor TMyThread.Create(a:real);
begin
  Fa:=a;
  inherited Create;
end;
procedure TMyThread.execute;
begin
MyFunction(Fa);
end;


oleg__   (2006-06-20 14:44:00) [4]

TObj1 = class
procedure Execute(a: int); virtual;

TObj2 = class(TObj1)
procedure Execute(s: string; a: int); reintroduce;

TObj2.Execute(s: string; a: int);
begin
 inherited Execute(a);
 // свой код
................


Сергей М.   (2006-06-20 14:30:00) [5]


> Пробовал думать


Плохо пробовал думать.
Или Пробовал плохо думать.
Или не думал вообще.

Виртуальный метод м.б. перекрыт методом с той жедекларрацией, что и перекрываемый метод.

Object Pascal, понимаешь ли .. Выше штанов не прыгнешь)


tesseract   (2006-06-20 14:23:00) [6]


> Как передать параметры, не используя глобальных переменных?


просто, делам функцию myExecute и вызываем её из execute.

больше никаких проблем.


Наверх

Титульная страница Поиск, карта сайта Написать письмо