VPF::виртуальные методы в паскале - Форум программистов

AgereS

Дата 20.8.2004, 15:44 (ссылка)

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

Загрузка ...

Опытный

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

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

можно-ли в паскале сделать так как в дельфи, т.е.

есть объект:

Код


TObject = object
procedure Set(X: integer); virtual;
end;

а в объекте потомке мы этот метод переопределяем:

Код


TOtherObject = object(TObject)
procedure Set(str_: string); virtual;
end;

я слышал про overload, подойдет ли оно ?

Pakshin A. S.

Дата 20.8.2004, 22:23 (ссылка)

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

Загрузка ...

Эксперт

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

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

Использование virtual проходит точно и работает всегда хорошо, а вот про overload нечего не сказано.

Поступить можно проще: попробовать методом научного тыка, т. е. упоребить overload и посмотреть на реакцию компилятора.

Vit

Дата 20.8.2004, 23:02 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Код

TOtherObject = object(TObject)
  procedure Set(str_: string); virtual; overload;
  procedure Set(X: integer); virtual; overload;
end;


procedure  TOtherObject.Set(str_: string); 
begin
  Showmessage(str_);
end;

procedure  TOtherObject.Set(X: integer); 
begin
  Showmessage(Inttostr(X));
end;

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

<Spawn>

Дата 20.8.2004, 23:42 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Кхм, странно, но когда в этом году мы в инсте проходили Паскаль, то оказалось, что перезагрузки там нет. Может только в поздних версиях?

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

AgereS

Дата 23.8.2004, 14:37 (ссылка)

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

Загрузка ...

Опытный

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

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

всем спасибо. указанные замезания учту.

Петрович

Дата 24.8.2004, 00:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

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

Цитата(Vit @ 20.8.2004, 23:02)

TOtherObject = object(TObject)
procedure Set(str_: string); virtual; overload;
procedure Set(X: integer); virtual; overload;
end;

А мой BP7 ругается на overload (END expected), что вообщем-то для меня естественно. Мне его там всегда не хватало

.
PS. на Set тоже ругается - в BP7 это зарезервированное слово

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

Все знать невозможно, но хочется

qwerty009

Дата 24.8.2004, 22:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

Цитата(Vit @ 20.8.2004, 23:02)

TOtherObject = object(TObject)
procedure Set(str_: string); virtual; overload;
procedure Set(X: integer); virtual; overload;
end;

А мой BP7 ругается на overload (END expected), что вообщем-то для меня естественно. Мне его там всегда не хватало

.
PS. на Set тоже ругается - в BP7 это зарезервированное слово

kgde ty v BP7 vidal komandu overload?
u menja dazhe v helpe netu

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