IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> ООП
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 118
Пол: Женский

Репутация: -  0  +


Помогит найти ошибку в программе:
program OOPtest;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
testclass = class (TObject)
procedure kill(a:integer); virtual; abstract;
end;

testdaughter = class (Testclass)
procedure kill(a:integer); overload;
end;

testson = class (Testclass)
procedure kill(a:integer); overload;
end;

procedure testson.kill(a:integer);
begin
write(a-1);
end;

procedure testdaughter.kill(a:integer);
begin
write(a+1);
end;

var arr : array [1..2] of testclass;
var a : integer;
var s : testson;
var d : testdaughter;
begin
a:=2;
arr[1]:=s;
arr[1]:=testson.Create;
arr[1].kill(a);
readln;
end.


Сообщение отредактировано: Reflex -


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Не overload, а override ...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.10.2020 19:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name